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-REM € 
IDENTIFICATION 


PRODUCT CODE: AC-FF61A-MC 
PROSUCT NAME: CZVSWAO 
PRODUCT DATE: 4-JUL-85 
MAINTAINER: CSS ENGINEERING 
AUTHOR: JOHN BOWSKILL 


Copyright (c) 1985 by 
Digital Equipment Corporation, Maynard, Massachusetts 
All Rights Reserved 


This software is furnished under a license and may 
be used and copied only in accordance with the terms 
of such License and with the inclusion of the above 
copyright notice. This software or any other copies 
thereof may not be provided or otherwise made avai l- 
able to any other person. No title to and ownership 
of the software is hereby transferred. 


The information in this software is subject to change 
without notice and should not be construed as a com- 
mittment by Digital Equipment Corporation. 
Digital assumes no responsibility for the use or 
reliability of its software on equipment that is 
not supplied by Digital. 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DEC PDP UNIBUS MASSBUS 
DECUS DECTAPE VAX 





SEQ 000 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC VERIFIES THAT DEVICES UNDER TEST ARE VSV21 
DEVICES AND CAUSES ALL VSV21 ON-BOARD MICRODIAGNOSTICS TO 
BE EXECUTED. IT PROVIDES COMPLETE FUNCTION LEVEL COVERAGE 
AND FRU CALLOUT. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TQ THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER . 
TO THE XXDP+ USER‘S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM & HARDWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED TO RUN ON A 11/23+ OR A 11/73 WITH 

A MINIMUM MEMORY OF 32 K BYTES. 

THE MODULE UNDER TEST IS A M7656. 

TESTS 4 , 13 , 14 , 16 AND 17 REQUIRE PART NUMBER VSV21-AJ WHICH 
CONSISTS OF THE FOLLOWING: 

1 OFF 12-15336-01 CONN, LOOPBACK EIA DATA 25-WAY 

2 OFF 70-20130-01 CONN, LOOPBACK EIA DATA 9-WAY 

1 OFF 70-20131-01 CONN, LOOPBACK KEYBOARD JACK 


eas oe Sad 
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2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 ° COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD”. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
7PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 
7EOP :DDD0D REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS :LIST TEST/ADD/OROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 


SEQ 0003 
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START/TESTS: 1-5/PASS:1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF “/TESTS:1-5". 


ol A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
MMAND. 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR« INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXRe INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 





LLL 


SEQ 0004 
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SEQ 0005 


LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE: IER: BOE 


y 


~ 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 

THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 

CHAPTER 6 OF THE XXDP+ USER'S MANUAL) OR YOU WISH TO USE THE 
HARDCODED DEFAULTS ( SEE BELOW ) OR YOU HAVE JUST RUN THE 
DIAGNOSTICS AND WISH TO KEEP THE SAME HARDWARE INFORMATION. 

WHEN YOU ANSWER THIS QUESTION WITH A "Y", THE RUNTIME SERVICES WILL 
ASK FOR THE NUMBER OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE 
FOLLOWING QUESTIONS FOR EACH UNIT. 


DEVICE ADDRESS (0) 172010 ? 
VECTOR ADDRESS (0) 320 ? 


WHERE DEVICE AND VECTOR ADDRESS ARE DEFINED IN SECTION 5.0. 

IN THE FOLLOWING EXAMPLE THE USER SELECTS 1 UNIT WITH 172020 FOR 
DEVICE ADDRESS INSTEAD OF THE DEFAULT 172010 AND 324 FOR VECTOR 
ADDRESS INSTEAD OF THE DEFAULT 320. 

CHANGE HW (L) ? Y 

# UNITS (D) 2? 1 


DEVICE ADDRESS (0) 172010 ? 172020 
VECTOR ADDRESS (0) 320 ? 324 


THE HARDCODED DEFAULTS ARE FOR 4 UNITS WITH THE FOLLOWING ADRESSES: 


UNIT DEVICE ADDRESS VECTOR ADDRESS 
#1 172010 320 
#2 172020 324 
#3 172030 330 
nq 172040 334 


2.5 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
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WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTAULLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH E7%:T UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBEU “¥ THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER iHAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 


a 


SEQ 0006 
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SEQ 0007 


NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
ieee THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON. AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE # (0) ? 0-7<CR> cad 

Q-FACTOR (0) 0 ? 0,1,0,,,,1,1<CR> 
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.6 QUICK START-UP PROCEDURE (XXDP+) 
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TO START-UP THIS PROGRAM: 

BOOT XXDP+ 

TYPE “R ZVSWAO” 

TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” ( IF APPROPRIATE ) 
ANSWER ALL THE HARDWARE QUESTIONS IF ANSWER TO 4 WAS "Y” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.3. 


vu ff} WwW f 


3.0 ERROR INFORMATION 


3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»+WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR 1 : TEST 1 MUST BE PERFORMED FIRST 


EXPLANATION: ALL TESTS € EXCEPT TEST 1 ) REQUIRE TEST 1 TO HAVE BEEN 


=? 





SEQ 0008 
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OCCURRENCE : 


ERROR 2 : 


EXPLANATION: 


OCCURRENCE : 


ERROR 3 : 


EXPLANATION: 


OCCURRENCE : 
ERROR 4 : 


EXPLANATION: 


OCCURRENCE : 


ERROR 5S : 


EXPLANATION: 


OCCURRENCE : 


ERROR 6 : 


EXPLANATION: 


OCCURRENCE : 


RUN FIRST TO VERIFY THAT THE DEVICE IS A VSv21. 
TEST 1 SHOULD NOW BE RUN. 


ANY TEST EXCEPT TEST 1. 


TEST 2 MUST BE RUN FIRST TO ENABLE DMA 


ALL TESTS NEEDING DMA ENABLED REQUIRE TEST 2 TO HAVE 
BEEN RUN FIRST. TEST 2 SHOULD NOW BE RUN. 


TESTS 15,16,17 AND 18 


TIMED OUT WHILE WAITING FOR STATUS VALID 


THE STATUS VALID BIT IN THE CSR FOR THE CURRENT DEVICE 
HAS NOT BEEN SET WITHIN A SUFFICIENTLY SHORT TIME. 

THIS NORMALLY MEANS THAT THE ON-BOARD FIRMWARE IS 
WAITING FOR SOMETHING AND HAS NOT SET THE BIT. 

AS THIS INDICATES WHEN THE CSR IS IN A VALID STATE TO 
THE HOST FURTHER TESTING OF THIS DEVICE IS NOT POSSIBLE 
UNTIL FIXED. 


ANY TEST. 
THERE HAS BEEN A POWERUP - PLEASE REPEAT TEST 1 


THE VSV21 HAS BEEN RESET. IT IS NECESSARY TO DO TEST 1 
AGAIN. NOTE THAT DMA WILL ALSO HAVE BEEN DISABLED. 


ANY TEST. 


CONTROLLER READY NOT SET IN CSR 


THE CONTROLLER READY BIT IS NOT SET IN THE CSR FOR 
THE CURRENT DEVICE. THIS MEANS THAT NO COMMAND CAN 
BE WRITTEN TO IT BY THE HOST. TRY REPEATING TEST 1 
AFTER INVESTIGATION. 


ANY TEST. 


STATUS PACKET SHORTER THAN SPECIFIED LENGTH 


IN PROGRAMMED I/0 THE HOST PROCESSES A STATUS PACKET 
BY READING THE PARAMETER REGISTER AND EXTRACTING THE 
PACKET WORD BY WORD. IN THIS CASE THE LENGTH SPECIFIED 
IN THE FIRST WORD INDICATES THAT THERE IS MORE DATA TO 
COME BUT THE PARAMETER READY BIT IS NOT SET IN THE CSR 
AND THUS THE PARAMETER REGISTER CANNOT BE READ TO GET 
THE REST OF THE STATUS PACKET. 


ANY TEST WHEN DMA IS NOT ENABLED. 


Tie Ee ee ie le 





SEQ 0009 
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ERROR 7 : 


EXPLANATION: 


OCCURRENCE : 


ERROR 8 : 


EXPLANATION: 


OCCURRENCE : 


ERROR 9 : 


EXPLANATION: 


OCCURRENCE : 


ERROR 10: 


EXPLANATION: 


OCCURRENCE : 


ERROR 11: 


EXPLANATION: 


OCCURRENCE : 


ERROR 12: 


EXPLANATION: 


OCCURRENCE : 


ERROR 13: 


EXPLANATION: 


STATUS AVAILABLE EXPECTED BUT NOT FOUND 

THE HOST HAS SENT A COMMAND TO THE VSV21 ( WHICH HAS 
DMA ENABLED ) AND IS THUS EXPECTING A ‘STATUS 
AVAILABLE' MESSAGE IN THE CSR WHEN THE VSV21 HAS 
FINISHED PROCESSING. THIS HAS NOT HAPPENED. 


ANY TEST WHEN OMA IS ENABLED. 


ERROR PACKET RECEIVED FROM VSV21 
THE HOST HAS RECEIVED AN ERROR PACKET FROM THE VSV21. 
ANY TEST. 


FAILED TO TRANSMIT STATUS ACKNOWLEDGE 

THE HOST HAS ATTEMPTED TO SEND A ‘STATUS ACKNOWLEDGE’ 
COMMAND VIA THE CSR BUT THE CONTROLLER READY BIT HAS 
NOT BEEN SET AFTERWARDS. 


ANY TEST. 


TIMEOUT WAITING FOR STATUS 

THE HOST HAS SENT A COMMAND TO THE VSV21 AND IS 
EXPECTING A STATUS ACKNOWLEDGE VIA THE PARAMETER 
REGISTER. THE PARAMETER READY BIT IN THE CSR HAS NOT 
BEEN SET WITHIN A SUFFICIENTLY SHORT TIME AS THIS 
INDICATES WHEN THE HOST CAN READ THE PARAMETER REGISTER. 


ANY TEST. 


DMA DATA MATCH ERROR 


DATA RECEIVED BACK FROM THE VSV21 IS DIFFERENT TO THAT 
SENT. THERE IS SOMETHING WRONG WITH DMA. 


TESTS 2,16,17 


FAILED TO GET MICRO DIAGNOSTICS RETURN STATUS PACKET 


THE HOST HAS FAILED TO GET A RETURN STATUS PACKET AFTER 
INVOKING A MICRODIAGNOSTICS TEST. 


TESTS 4-19 


MICRO DIAGNOSTIC TEST UNSUCCESSFUL 
THE MICRODIAGNOSTIC TEST HAS FAILED. 





SEQ 0010 
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OCCURRENCE : TESTS 4-19. 


ERROR 14: _ ERROR PACKET EXPECTED BUT NOT RECEIVED 


EXPLANATION: AN INVALID COMMAND IS SENT TO THE VSV21 IN TEST 3 AND 
SO AN ERROR PACKET IS EXPECTED. THIS DID NOT HAPPEN. 


OCCURRENCE : TEST 3. 


ERROR 15: TIMED OUT WAITING TO RECEIVE AN INTERRUPT 


EXPLANATION: AN INTERRUPT HAS NOT BEEN RECEIVED WITHIN A 
SUFFICIENTLY SHORT TIME. 


OCCURRENCE : TEST 20. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


THE VSV21 MODULE INTERFACES TO THE HOST PROCESSOR VIA THE PROGRAMMED 
I/O INTERFACE. THIS USES THREE REGISTERS WITHIN A BLOCK OF FOUR 
ADDRESSABLE WORD LOCATIONS ON THE HOST BUS. THE BLOCK IS ASSIGNED AN 
ADDRESS BEGINNING ON A MODULO-4 WORD BOUNDARY VIA HARDWARE ADDRESS 
SELECT SWITCHES. THIS ADDRESS IS TERMED THE DEVICE ADDRESS. THE BLOCK 
LOOKS LIKE THIS: 


ADDRESS READ WRITE 

177XXXX0 DMA ADDRESS REGISTER HARDWARE INITIALIZE 
177XXXX2 STATUS REGISTER COMMAND REGISTER (CSR) 
177XXXX4 PARAMETER REGISTER PARAMETER REGISTER 
177XXXX6 CUNDEF INED ) CUNDEF INED ) 


ADDRESS 177XXXX0 IS THE DEVICE ADDRESS. THE HARDWARE P-TABLE CONSISTS 
OF TWO VALUES FOR EACH DEVICE. THE FIRST IS THE DEVICE ADDRESS , THE 
SECOND IS THE VECTOR ADDRESS. 


THE DMA ADDRESS REGISTER CONTAINS THE LEAST SIGNIFICANT 16 BITS OF THE 
PHYSICAL ADDRESS OF THE LAST DMA OPERATION PERFORMED BY THE CONTROLLER 
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WHEN DMA HAS BEEN ENABLED. 


THE HARDWARE INITIALIZE REGISTER , WHEN WRITTEN TO , CAUSES THE vSV21 
TO BE RESET. . 


THE STATUS REGISTER CONTAINS STATUS INFORMATION ON THE OPERATIONAL 
STATUS OF THE CONTROLLER AND THE PROGRESS OF OPERATIONS WHICH ARE 
ine i BY THE CONTROLLER. THE REGISTER CONTAINS THE FOLLOWING 
STATU: . 


BIT DESCRIPTION 


12 CONTROLLER. READY BIT : 
THIS BIT IS A LOGICAL 1 WHEN THE CONTROLLER IS READY TO 
ACCEPT A NEW COMMAND FROM THE HOST. A LOGICAL O IN THIS 
a THAT THE CONTROLLER CANNOT ACCEPT A NEW 


13 PARAMETER READY BIT : 
THIS BIT IS A LOGICAL 1 WHEN THE CONTROLLER HAS 
INFORMATION FOR THE HOST. IT IS A LOGICAL 0 WHEN THERE 
IS NO MORE INFORMATION. 


14 CONTROLLER ERROR BIT : 
THIS BIT IS A LOGICAL 1 WHEN THE VSV21 BOARD HAS BEEN 
RESET. IT WILL BE CLEARED WHEN A COMMAND IS WRITTEN TO 
THE COMMAND REGISTER OR THE PARAMETER REGISTER IS READ 
( PROVIDING THE PARAMETER READY BIT IS SET ). THIS BIT 
mee O WHEN THE VSV21 BOARD HAS NOT JUST BEEN 


15 STATUS VALID BIT : 
THIS SIT IS A LOGICAL 1 WHEN THE STATUS OF THE ABOVE 
DEFINED BITS IS VALID. A LOGICAL 0 INDICATES THAT THE 
STATUS OF THE ABOVE DEFINED BITS IS NOT VALID AND MAY 
BE UPDATED. THE HOST MUST WAIT UNTIL THIS BIT IS SET 
BEFORE READING THE STATUS OF THE BITS AND TAKING ANY 
SUBSEQUENT ACTION. 


THE COMMAND REGISTER IS THE REGISTER FOR PASSING COMMANDS FROM THE 
HOST TO THE vSV21. 


THE PARAMETER REGISTER IS A READ/WRITE REGISTER. IT IS WRITTEN TO 

WHEN THE HOST NEEDS TO SEND PARAMETERS PRIOR TO WRITING TO THE COMMAND 
REGISTER. IT IS READ BY THE HOST WHEN THE VSV21 HAS SET THE PARAMETER 

READY BIT IN THE STATUS REGISTER. THE HOST KEEPS READING THE PARAMETER 
REGISTER FOR MORE INFORMATION UNTIL THE PARAMETER READY BIT IS CLEAR. 


6.0 TEST SUMMARIES 
TEST 1: VERIFY VSV21 PRESENCE 


This test verifies that there is a VSV21 device at the current CSR. 
On the first pass it displays the version of the VSV21 and a message 





SEQ 0012 


no et 
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SEQ 0013 


warning the operator to attach external loopback connectors if he 
wishes tests 4 , 13 , 14 , 16 or 17 to be done. The test also disables 
interrupts. 


TEST 2: IN DEPTH Q22 BUS TEST 


This test performs an in-depth test of the Q22 bus by means of 
exercising the DMA mechanism in both directions. It sets up the DMA 
protocol and must be done before other tests requiring DMA. 


TEST 3: FORCED ERROR TEST 


— — sends an invalid command to the VSV21 to provoke an error 
packet. 


TEST 4: FULL ON BOARD TESTS 


This test invokes full on-board VSV21 microdiagnostics tests. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pess of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 5: ROM CHECKSUM TEST 


This test invokes the on-board VSV21 ROM CHECKSUM test. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 6: NVRAM CHECKSUM TEST 


This test invokes the on-board VSV21 NVRAM CHECKSUM test. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 7: RAM TEST 


This test invokes the on-board VSV21 RAM test. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 8: RAM ADDRESSING TEST 


This test invokes the on-boerd VSV21 RAM ADDRESSING test. 

If the HOE fleg is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 





al 
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If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 9: 68K PROCESSOR TEST 


This test invokes the on-board VSV21 68K PROCESSOR test. 

If tne HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 10: INTERNAL EXCEPTIONS TEST 


This test invokes the on-board INTERNAL EXCEPTIONS test. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 11: ACRCT INTERNAL TEST 


This test invokes the on-board ACRCT INTERNAL test. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 12: ACRCT EXTERNAL TEST 
This test invokes the on-board VSV21 ACRCT EXTERNAL test. 


If the HOE flag is specified the VSV21 will halt on error. 
If the LOE flag is specified the operator will be given the choice on 


the first pass of whether he wishes the on-board tests to loop on error. 


If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 13: DUART BASIC TEST 
This test invokes the on-board VSV21 DUART BASIC test on ports 0-3. 


If the HOE flag is specified the VSV21 will halt on error. 
If the LOE flag is specified the operator will be given the choice on 


the first pass of whether he wishes the on-board tests to loop on error. 


If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 14: DUART FULL TEST 
This test invokes the on-board VSV21 DUART FULL test on ports 0-3. 


If the HOE flag is specified the VSV21 will halt on error. 
If the LOE flag is specified the operator will be given the choice on 


the first pass of whether he wishes the on-board tests to loop on error. 


If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


Es 


SEQ 0014 


Li er ee 
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SEQ 0015 


TEST 15: PERIPHERAL CONFIDENCE TEST 


This test is not done if /FLA:UAM is specified on the START command. 

This test allows the operator to select a port for either input or output. 
If he selects output an ASCII string is written to that port. 

If he selects input the first 16 characters read from that port are 
displayed in octal on the console running the tests. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 

the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 

not return control to the host but will continue looping. 


TEST 16: INTERNAL LOOPBACK TEST 


This test causes the on-board software to perform an INTERNAL LOOPBACK 
test on ports 0-3. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 17: EXTERNAL I/0 LOOPBACK TEST 


This test causes the on-board software to perform an EXTERNAL LOOPBACK 
test on ports 0-3. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 18: SCREEN TEST 


This test is not done if /FLA:UAM is specified on the START command. 
This test displays different screen test pictures as selected by the 
operator. If the HOE phe is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 19: NVRAM READ/WRITE TEST 


This test is not done if /FLA:UAM is specified on the START command. 
This test tests NVRAM read/write. On each pass the operator will be 
asked if he wishes to continue as NVRAM has a limited life in terns of 
read/write cycles. 

If the HOE flag is specified the VSV21 will halt on error. 

If the LOE flag is specified the operator will be given the choice on 
the first pass of whether he wishes the on-board tests to loop on error. 
If he selects yes the test may hang indefinitely as the on board will 
not return control to the host but will continue looping. 


TEST 20: ENABLE INTERRUPTS TEST 


bee ee eee ee 
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SEQ 0016 


This test verifies that interrupts are received by the host wien 
interrupts are enabled. 





PROGRAM HEADER AND TABLES 


873 000000 


87 177777 
880 177777 
881 177777 
882 177777 
883 177777 


891 000000 
892 002000 


894 002000 


901 002000 
2 
903 002000 








A a RE ES 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-MCALL SVC 
svc 


; TO INITIALIZE THE STRUCTURED MACROS. 

SVCINS= -1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
SVCTST= -1 ; LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= -1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= -1 ; LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= -1 ; LIST OTHER TAGS, SHIFTED RIGHT 


BGNMOD 


A 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER ERRTBL ,BGNSETUP 
HEADER CZVSWAO,A,0,15,0 


CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 
TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 
SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 

5 5 566 5 6 6 9 0 wg 0s 0 sn gg gts sg 000 0 0 0g 00 0 0 0 0 0 0 00 0 0 0 0 8 e's sg 


-ENABL ABS,AMA 


; INITIALIZE SUPERVISOR MACROS 


5 5 9696 i 0 ws sv sh sv gl gt 0 ag 0 0 00h pgs sed Se I ST I ST SN OT 
H IF STRUCTURED MACROS ARE TO BE USED, ADD ".MCALL STRUCT” AND “STRUCT” 






SEQ 0017 
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DISPATCH TABLE 


002122 














SEQ 0018 


-SBTTL DISPATCH TABLE 


3+ 5 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


3-- 


MAXUNIT== 4 + maximum number of units 
MAXTST == 20. + maximum number of tests 


DISPATCH MAXTST 


-- 
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DEFAULT HARDWARE P-TABLE 


938 002174 
939 
949 
950 002176 
951 002200 
952 
953 002202 





172010 
000320 





a ee 


-SBTTL DEFAULT HARDWARE P-TABLE 


++ 
+ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 


BGNHW ODFPTBL 
-WORD 172010 
-WORD 320 
ENDHW 





SEQ 0019 
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DEFAULT HARDWARE P-TABLE 


964 002202 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


001000 
000400 
000200 
‘(000100 
000040 
000020 
000010 
000004 
000002 
000001 


000040 
000037 
000036 
000035 
000034 


000340 
000300 
000240 


Gea ee Sei 


- TITLE GLOBAL AREAS 


-SBTTL GLOBAL EQUATES SECTION 


3+ 





SEQ 0020 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


Hace 
EQUALS 
; BIT DIFINITIONS 


; 

BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT1i2== 10000 
BIT1i== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


BIT9== BITOI 
BIT8== BITOS 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITi== BITO1 
BITO== BITOO 


; EVENT FLAG DEFINITIONS 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. 
EF .RESTART== 31. 
EF .CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 
i 


; 
; PRIORITY LEVEL DEFINITIONS 


‘ 

PRIO7== 340 
PRI06== 300 
PRIOS== 240 


; BIT POSITION IN SECOND STATUS WORD 
s €100000) START COMMAND WAS ISSUED 

s €040000) RESTART COMMAND WAS ISSUED 

; €020000) CONTINUE COMMAND WAS ISSUED 

; €010000) A NEW PASS HAS BEEN STARTED 

; (004000) A POWER-FAIL/POWER-UP OCCURRED 





GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


001403 
177777 


100000 


002101 
002102 
002103 
002104 





PRI04== 200 
PRIO3== 140 
PRIO2== 100 


PRIO1== 40 
PRIOO== 0 

; 

sOPERATOR FLAG BITS 
3 

EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 


IER== 20000 
LOE== 40000 
HOE== 100000 


:CSR bit meanings 


VS.SVL 
VS .ERR 
VS .CRY 
VS .PRY 


sParallel interface commands ( these are written to the CSR by the host ) 


iThis one is wri 


PI.AVA 


i;These are DMA command codes that 


== BIT15 
== BIT14 
== BIT12 
== BIT13 


== 54400+0 
== 64400+0 
== 24400+0 
== 24400+1 
== 14400+0 
== 44400+0 
== 34400+0 
== PI.IDS+3 
== 177777 


tten to the parameter register by the on-board 


== BIT15 


sbuffer by the host 


DI.RDA 
DI.WDD 
DI.RRA 
DI.WRA 


== 2101 
== 2102 
== 2103 
== 2104 


sreturn from the on-board 








SEQ 0021 


status valid 

error ( powerup only ) 
controller ready 
parameter ready 


command avai lable 

status ack 

buffers sent 

buffers cancelled 

check ident. protocol. 

invoke microdi agnostics 

disable interrupts 

enable interrupts 

rubbish command to provoke error 


status available 


are put in the first word of the command 


read data 

write dats. 

read ram protocol code. 
write ram protocol code. 
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GLOBAL EQUATES SECTION 





SEQ 0022 


1000 000011 DI.MIC == 9, ; micro diagnostic result code 
1001 000005 DI.ERP == 5, ; error reply packet code 
1002 000176 DI.ERS == 126. ; error log and stop packet code 
er 000177 DI.ERL == 127. ; error log packet code 
1 

1005 sFills in error table details 

1006 -MACRO ERR.FILLIN NUMBER , MESSAGE 

1007 MOV #2 ,ERRTYP + assume hard error for now 
1008 MOV #NUMBER,ERRNBR ; get error number 

1009 MOV #MESSAGE,ERRMSG ; get error message 
1010 MOV #ERRCODE, ,ERRBLK ; get error routine 
1011 .ENDM 

1012 

1013 sError return 

1014 -MACRO ERR.RETURN 

1015 SEC 

1016 RETURN 

1017 .ENDM 

1018 

1019 ;0K return 

1020 -MACRO OK.RETURN 

1021 CLE 

1022 RETURN 

1023 .ENDM 

1024 

1025 ;Put at start of each test. 

1026 sEnsures that TEST1 must have been performed first. 
1027 -MACRO ST.TEST, ?7L ABEL 

1028 BGNTST 

1029 CALL STTEST 

1030 BCC LABEL 

1031 EXIT TST 

1032 LABEL: 

1033 .ENDM 

1034 

1035 Sets up POLCNT for a delay 

1036 -MACRO SET.POLCNT 

1037 MOV #1500. ,POLCNT 

1038 -ENDM 

1039 

1040 ;Writes a command to the CSR 

1041 -MACRO DO.COMMAND COM, LABEL 

1042 MOV #COM , COMAND 

1043 . SET.POLCNT 

1044 CALL DOCOM 

1045 BCC LABEL 

1046 .ENDM 

1047 

1048 iTests manual intervention and exits test if not allowed 
1049 -MACRO MAN. IGNORE ?LABEL 

1050 MANUAL 

1051 BCOMPLETE LABEL 

1052 EXIT TST 

1053 LABEL: 

1054 

1055 

1056 sTests dma done and exits test if not 


a ee eee ee eee 
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SEQ 0023 

GLOBAL EQUATES SECTION 

1057 -MACRO DMA. IGNORE ?L ABEL 

1058 TST DMASETCR4) ; DMA enabled ? 

1059 BNE LABEL ; branch if yes 

1060 ERRHRD 2,ERR2,ERRCODE ; error exit if not 

1061 EXIT TST 

1062 LABEL: 

1063 -ENDM 

1064 

1065 :Calls writeram routine 

1066 -MACRO (.0.WRAMS BUF ADD ,BUFLEN 

1067 .IF No BUF ADD 

1068 IFT 

1069 MOV BUF ADD , COMBUF +4 

1070 MOV BUFLEN, COMBUF +6 

1071 .IFF 

1072 MOV #DMAOBUF , COMBUF +4 

1073 MOV #DMALEN, COMBUF +6 

1074 .IFTF 

1075 CALL WRAMS 

1076 -ENDC 

1077 .ENDM 

1078 

1079 ;Calls readram routine 

1080 -MACRO DO.RRAMS BUF ADD ,BUFLEN 

1081 .IF NB BUF ADD 

1082 .IFT 

1083 MOV BUF ADD , COMBUF +4 

1084 MOV BUFLEN , COMBUF +6 

1085 .IFF 

1086 MOV #DMAIBUF , COMBUF +4 

1087 MOV #DMALEN, COMBUF +6 

1088 .IFTF 

1089 CALL RRAMS 

1090 .ENDC 

1091 .ENDM 


GLOBAL AREAS 
GLOBAL DATA SECTION 


1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 


002202 
002202 
002204 
002206 
002210 


002212 
002214 
002216 


002220 
002222 
002232 
002234 
002236 
002240 
0C2242 
002244 
002252 
002260 
002266 
002274 
002302 


002304 


002604 
002612 
002614 
002616 
002666 
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000000 
000002 
000004 


000010 
000030 


000024 
000036 
012000 
002666 


000002 
000020 
000200 
002000 
020000 


002616 





000004 
000040 
000400 
004000 
040000 


017000 


SEQ 0024 


-SBTTL GLOBAL DATA SECTION 


poe 


; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


ERRTYP: 


ERRTBL 


ERRNBR:: 
ERRMSG: : 
ERRBLK:: 


TEMPi:: . 
TEMP2:: . 
POLCNT::. 


> 

LOGUNT::. 
PBLOC:: . 
CURCSR::. 
CURPAR::. 
CURVEC::. 
INTFLG::. 
NOTEST::. 


BITS:: 


5 

xz 

o 
oooo 


temporary storage 
temporary storage 
<O = poll CSR forever , >0 = poll CSR 
required number 
current unit number 
storage for sending microdiagnostic parameters 
CSR address for current unit 
parameter register address for current unit 
vector address for current unit 
<>0 = got interrupt , 0 = not got interrupt 
; 0 = tests can be done , <>0 = tests cannot 
IT0,B1T1,B81T2,681T3,B1T4,61T5,6116,B811T7,B1T8 


0 
0 
0 
0 


oe @e es «es Ge os os os oe os 


4 
0 
0 
0 
0 
0 
B 


BIT9,B1T10,B1T11,817T12,81T13,81714,B1T15 


iFlags per unit (globals are offset from start of flags for that unit) 
FRRREEEAEEAEEREAERARAEAEEAAEEEERAREAEAAEEAEEAAEAAAEAEEEEEAEAERAEEAAREAAEEEER EES 


N.B. R4 POINTS TO THE FLAGS FOR THE CURRENT UNIT 


; 
FRARAEEAAEEAREAAREAEAEREARERESEEEREAREAREREERAEAAAAAAREREEAREREREEEDEREEEEELEREES 


3 
3 
FLAGS:: 


TIDONE == 0 s+ 1 WORD: O = TESTI not done , <>0 = TEST1 DONE 
DMASET == TIDONE+2 ; 1 WORD: O = DMA disabled , <>0 = DMA enabled 
FTHRU == DMASET+2 ; 2 WORDS: bit ‘n’ is clear if TEST ‘mn’ not yet 
3; done 
TMASKS == FTHRU+4 ; MAXTST WORDS : test masks 
; Conly applicable to Microdiagnostic tests) 
LENFLAGS == TMASKS/2+MAXTST ; length of flags per unit in words 
-BLKW <LENFLAGS*#MAXUNIT> 3; the flags indexed by unit 


:Command and status buffers 


BUFDES: 


COMAND : 


COMBUF ; 
STABUF ; 


3; the data to be written to RAM 


COMLEN 
STALEN 
. WORD 


-BLKW 
-BLKW 
-BLKW 


= 24 

= 36 

<COMLEN*400> , COMBUF , <STALEN#400>,STABUF ; buffer descriptors 
1 ; current: command 

COMLEN 3 command packet buffer for DMA 

STALEN 3; status packet buffer for DMA. 
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— 


1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 


002762 
002762 
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177776 
177775 
177774 
177773 
177772 
177771 
177770 
177760 
177750 
177740 
177730 
177720 
177710 
177700 
177600 
177500 
177400 
177300 
177200 
177100 
177000 
000000 


000054 





DMAOBUF : ; 
-WORD 177776 
-WORD 177775 


«WORD 177774 
-WORD 177773 
«WORD 177772 
-WORD 177771 
-WORD 177770 
-WORD 177760 
-WORD 177750 
-WORD 177740 
-WORD 177730 
«WORD 177720 
-WORD 177710 
-WORD 177700 
-WORD 177600 
-WORD 177500 
-WORD 177400 
-WORD 177300 
-WORD 177200 
-WORD 177100 
-WORD 177000 
-WORD 0O 
DMALEN = .-DMAOBUF ; length of above date 


DMAIBUF: : 
-BLKW DMALEN ; buffer to read back into . 





SEQ 0025 





GLOBAL AREAS 
GLOBAL TEXT SECTION 


—— 
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SEQ 0026 


-SBTTL GLOBAL TEXT SECTION 


344 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

s MORE THAN ONE TEST. 


lt 
-NLIST BEX 


ERR1:: .ASCIZ /TEST 1 MUST BE PERFORMED FIRST/ 

ERR2:: .ASCIZ /TEST 2 MUST BE RUN FIRST TO ENABLE DMA/ 
ERR3:: .ASCIZ /TIMED OUT WHILE WAITING FOR STATUS VALID/ 
ERR4:: .ASCIZ /THERE HAS BEEN A POWERUP - PLEASE REPEAT TEST 1/ 
ERRS:: .ASCIZ /CONTROLLER READY NOT SET IN CSR/ 

ERR6:: .ASCIZ /STATUS PACKET SHORTER THAN SPECIFIED LENGTH/ 

ERR7:: .ASCIZ /STATUS AVAILABLE EXPECTED BUT NOT FOUND/ 

ERR8:: .ASCIZ /ERROR PACKET RECEIVED FROM VSV21/ 

ERR9:: .ASCIZ /FAILED TC TRANSMIT STATUS ACKNOWLEDGE/ 

ERR10:: .ASCIZ /TIMEOUT WAITING FOR STATUS/ 

ERR11:: .ASCIZ /DMA DATA MATCH ERROR/ 

ERR12:: .ASCIZ /FAILED TO GET MICRO DIAGNOSTICS RETURN STATUS PACKET/ 
ERR13:: .ASCIZ /MICRO DIAGNOSTIC TEST UNSUCCESSFUL/ 
ERR14:: .ASCIZ /ERROR PACKET EXPECTED BUT NOT RECEIVED/ 
ERR15:: .ASCIZ /TIMED OUT WAITING TO RECEIVE AN INTERRUPT/ 


; 
; NAMES OF DEVICES SUPPORTED BY PROGRAM 
3 


DEVTYP <VSV21> 
; TEST DESCRIPTION 
a 


DESCRIPT <VSV21 DIAGNOSTIC> 
-EVEN 


‘ 
; FORMAT STATEMENTS USED IN PRINT CALLS 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


004302 
004302 
004306 


004312 
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005237 002242 











SEQ 0027 


-SBTTL GLOBAL ERROR REPORT SECTION 


3¢¢ 

; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


use 
BGNMSG ERRCODE 
INC NOTEST 
EXIT MSG 
-EVEN 
ENDMSG 


ssay no further tests allowed 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 


004314 
004322 
004324 
004354 
004360 
004362 
004366 


004370 
004370 
004376 
004404 
004412 
004420 
004420 
004422 


004424 
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032777 
001040 


005737 
002755 
005337 
003352 


012737 
012737 
012737 
012737 


000261 
000207 


032777 


100000 


002216 
002216 


000002 
000003 
003274 
004302 


040000 





175710 


002202 
002204 
002206 
002210 


175600 


SEQ 0028 


-SBTTL GLOBAL SUBROUTINES SECTION 


3°¢ 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 

gee 


$e 
+ FUNCTIONAL DESCRIPTION: 
3 SUBROUTINE TO POLL THE CSk ‘OR STATUS VALID BIT TO BE SET. 


: INPUTS: 

; POLCNT - NUMBER OF TIMES TO POLL , -1 = INFINITE 
s IMPLICIT INPUTS: 

3 CURCSR - CSR ADDRESS TO POLL 
: T1DONE - TEST 1 DONE FLAG 

; OUTPUTS: 

; CONDITION CODE - CLEAR = SUCCESS 

; --* SET = FAILURE 

; IMPLICIT OUTPUTS: 

2 ERROR BLOCK - FILLED IN ON FAILURE 
; T1DONE - CLEARED IF POWERUP 

; DMASET - CLEARED IF POWERUP 


+ SUBORDINATE ROUTINES USED: 
NONE 


s FUNCTIONAL SIDE EFFECTS: 


; IF POWERUP OF VSV21 FOUND FORCES TEST1 TO BE DONE AGAIN BY CLEARING 
: TIDONE. ALSO CLEARS DMASET TO SAY THAT DMA IS NOT ENABLED. 
; CALLING SEQUENCE: 
: MOV #1500. ,POLCNT ;SET UP POLL COUNT 
H CALL POLL 3GO TO ROUTINE 
3 BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
POLL:: BIT #VS.SVL,@CURCSR ; SVL ? 
BNE 2s ; branch if yes 
DELAY 10. ; delay 10 units 
TST POLCNT ; poll forever ? 
BLT POLL ; yes 
DEC POLCNT + Mo - reduce count 
BGT POLL ; try again if still some left 
ERR.FILLIN 3,ERR3 
MOV #2,ERRTYP + assume hard error for now 
MOV #3 ,ERRNBR + get error 3 
MOV #ERR3S, ERRMSG ; get error ERR3 
MOV #ERRCODE ,ERRBLK ; get error routine 
ERR.RETURN 
SEC 
RETURN 
2s: BIT #VS.ERR,@CURCSR ; ERR ? 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 


1290 


1291 
1292 


1293 


004432 


004434 
004440 
004444 
004446 
004452 
004452 
004460 
004466 
004474 
004502 
004502 
004504 


004506 
004506 
004510 


me 
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001425 


005064 
005764 
001420 
005064 


012737 
012737 
012737 
012737 


000261 
000207 


000241 
000207 


000002 
000000 


000000 


000002 
000004 
003345 
004302 


002202 
002204 
002206 
002210 


BEQ 3$ 


; powerup - initialise 


3$: 


CLR DMASET(R4) 
TST TLDONEC(R4) 


BEQ 3$ 
CLR TIDONE(R4) 
ERR.FILLIN 4, ERR4 


MOV #2, ,E°R TYP 

MOV $4 ,EneN“ee 

MOV #ERR4, ERRMSG 
MOV #ERRCODE ,ERRBLK 
ee 


RETURN 

OK .RETURN 
CLC 
RETURN 





; branch if not 


say DMA disabled 
Test 1 done yet ? 
branch if not 

say Test 1 not done 


oF oF oF 


assume hard error for now 
get error 4 

get error ERR4 

get error routine 


SEQ 0029 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1295 
1296 
1297 
1298 


1330 


1331 


1332 


004512 
004512 
004516 
004520 
004522 
004530 
004532 
004532 
004540 
004546 
004554 
004562 
004562 
004564 
004566 
004566 
004570 
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004737 
103001 
000207 
032777 
001016 


012737 
012737 
012737 
012737 


000261 
000207 


000241 
000207 


004314 


010000 


000002 
000005 
003425 
004302 
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175502 
, 
002202 
002204 


002206 
002210 


SEQ 0030 


++ 
FUNCTIONAL DESCRIPTION: 
or art. TO POLL THE CSR FOR STATUS VALID AND CONTROLLER READY BITS 


INPUTS: 
NONE 


IMPLICIT INPUTS: 
CURCSR - CSR ADDRESS TO POLL 


OUTPUTS: 
CONDITION CODE - CLEAR = SUCCESS 
- SET = FAILURE 


IMPLICIT OUTPUTS: 

ERROR BLOCK - FILLED IN ON FAILURE 
SUBORDINATE ROUTINES USED: 

POLL 
FUNCTIONAL SIDE EFFECTS: 

NONE 


CALLING SEQUENCE: 


3 CALL POLLCRY ;GO TO ROUTINE 
3 BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
POLLCRY:: 
CALL POLL ; poll for SVL 
BCC 10$ ; branch if SVL 
RETURN ; else return if not 
10$: BIT #VS.CRY,@CURCSR » CRY ? 
BNE 20$ ; branch if yes 
ERR.FILLIN 5,ERRS ; error return if not 
MOV #2 ,ERPTYP ; assume hard error for now 
MOV #5,ERRNGR ; get error 5 
MOV #ERRS, ERRMSG ; get error ERRS 
MOV #ERRCODE,ERRBLK ; get error routine 
ERR. RETURN 
SEC 
RETURN 
208: Tatoos ; success return 
L 
RETURN 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


004572 
004576 
004600 
004602 
004602 
004604 


004606 
004614 
004616 
004622 
004624 


004626 
004634 
004636 
004636 
004644 
004652 
004660 
004666 
004670 
004670 
004672 


004674 
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004737 
103003 


000261 
000207 


032777 
001404 
004737 
103001 
000207 


032777 
001017 


012737 
012737 
012737 
012737 


090261 
000207 


013777 


004314 


020000 
005066 


010000 


000902 
000005 
003425 
004302 


002614 


175416 


175376 


002202 
002204 
002206 
002210 


175330 





SEQ 0031 
3+ 
; FUNCTIONAL DESCRIPTION: 
3 SUBROUTINE TO WRITE A COMMAND TO THE CURRENT CSR. 
; INPUTS: 
; POLCNT - NUMBER OF TIMES TO POLL , -1 = INFINITE 
; IMPLICIT INPUTS: 
H CURCSR - CSR ADDRESS TO POLL 
; OUTPUTS: 
3 CONDITION CODE - CLEAR = SUCCESS 
; - SET = FAILURE 
; IMPLICIT OUTPUTS: 
3 ERROR BLOCK - FILLED IN ON FAILURE 
; SUBORDINATE ROUTINES USED: 
3 NONE 
; FUNCTIONAL SIDE EFFECTS: 
H THIS DEPENDS ON THE COMMAND. E.G. IF THE COMMAND IS ‘BUFFERS SENT‘ 
H DMA WILL THEN BE ENABLED AND STATUS WILL COME BACK VIA DMA. 
; CALLING SEQUENCE: 
F MOV #1500. ,POLCNT ;SET UP POLL COUNT 
F CALL DOCOM :GO TO ROUTINE 
H BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
DOCOM:: CALL POLL ; ensure SVL 
BCC 10$ ; branch if OK 
ERROR 
ERR. RETURN 
SEC 
RETURN 
10$: BIT #VS.PRY,@CURCSR ; PRY ? 
BEQ 20$ ; branch if not 
CALL GETST1 ; get status 
BCC 20$ : ; branch if status OK 
RETURN ; return if not 
20%: BIT #VS.CRY,3CURCSR ; CRY ? 
BNE 30$ ; branch if yes 
ERR.FILLIN 5,ERR5S 
MOV #2 ,.ERRTYP ; assume hard error for now 
MOV #5 ,,ERRNBR ; get error 5 
MOV #ERRS, ERRMSG ; get error ERRS 
MOV #ERRCODE ,ERRBLK ; get error routine = 


ERROR 
ERR.RETURN 
SEC 


RETURN 


30$: MOV COMAND ,@CURCSR 


; write comand to the CSR 





-_- 


GLOBAL AREAS 


1383 004702 
1384 004706 
1385 004710 
1386 004712 
004712 
004714 


1388 004716 
1389 004724 


1393 004726 
1394 004734 
1395 004736 
1396 004744 
1397 004746 
1398 004754 


1401 004756 
1402 005006 
1403 005012 
1404 005014 
1405 005020 
1406 005022 
005022 
005030 
005036 
005044 
1407 005052 
1408 005054 
005054 
005056 


1410 005060 
1411 005064 
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GLOBAL SUBROUTINES SECTION 


004737 
103003 


000261 
000207 


032777 
001055 


022737 
001453 
022737 
001447 
022737 
001443 


005737 
002733 
005337 
003330 


012737 
012737 
012737 
012737 


000261 
000207 


004737 
000207 


004314 


020000 


001400 
001403 
001000 


002216 
002216 
000002 
000012 


003720 
004302 


005462 





175306 


002614 
002614 
002614 


002202 
002204 
002206 
002210 


35$: 


CALL POLL 
BCC 40$ 
ERROR 
ERR. RETURN 
SEC 
RETURN 
40$: BIT #VS.PRY,@CURCSR 
BNE 50$ 


sinterrupt mask 


CMP #PI.IDS,COMAND 
BEQ 60$ 
CMP #PI.IEN, COMAND 
BEQ 60$ 
CMP #PI. SEN, COMAND 
BEQ 60$ 

stry again to get status 
DELAY 10. 
TST POLCNT 
BLT 35$ 
DEC POLCNT 
BGT 5$ 
ERR.FILLIN 10.,ERR1 
MOV #2 ,ERRTYP 
MOV #10. ,ERRNBR 
MOV #ERR1O,ERRMSG 
MOV #ERRCODE , ERRBLK 
ERROR 
ERR.RETURN 
SEC 
RETURN 

50$: CALL GETST2 

60$: RETURN 


0 
; 





; 





SEQ 0032 


wait for SVL 


PRY ? 
branch if yes 


end buffer sent commands do not expect status from the VSV21 


interrupt disable command ? 
branch if yes 

interrupt enable command ? 
branch if yes 

buf sent command ? 

branch if yes 


delay 10 units 

poll forever ? 

yes 

no - reduce count 

try again if still some left 
timeout 


assume hard error for now 
get error 10. 

get error ERR10 

get error routine 


get status 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 


005066 
005066 
005072 


005074 
005102 
005104 
005112 
005120 


005122 
005130 
005134 
005136 
005142 
005146 
005150 
005152 
005152 
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005764 
001060 


032777 
001407 
012737 
017737 
000444 


017737 
113701 
001436 
012702 
004737 
103003 


000261 


000002 


040000 
000001 
175116 
175106 
002666 


002670 
004314 





175130 


002666 
002670 


002666 





; CALL GETST1 sGO TO ROUTINE 
: BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
GETST1i:: 

TST DMASET(R4) ; DMA enabled ? 

BNE 30$ ; branch if yes 


sDMA not enabled - get status packet via parameter register 


#VS.ERR,@CURCSR ; ER 
BEQ 5$ ; branch if no 
MOV #1,STABUF ; pretend status packet has a header 
MOV OCURPAR, STABUF +2 ; get rest of packet 
BR 25$ 
5$: MOV A@CURPAR , STABUF get status header word 


10$: CALL POLL poll 
BCC 20$ 
ERROR 
ERR.RETURN 
SEC 









SEQ 0033 











++ 

FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO GET A STATUS PACKET FROM THE VSV21 INTO STATUS BUFFER. 
THIS INCLUDES BOTH PROGRAMMED I/0 AND DMA MODES. 
THIS MODULE IS VERY SIMILAR TO GETST2 BUT IS CALLED BEFORE A COMMAND IS 
way We UR ener 


INPUTS: 
NONE 
IMPLICIT INPUTS: 
DMASET - DMA ENABLED FLAG 
STABUF - STATUS BUFFER 
CURCSR - CSR ADDRESS 
OUTPUTS: 


CONDITION CODE - CLEAR = SUCCESS 
- SET = FAILURE 


IMPLICIT OUTPUTS: 


ERROR BLOCK - FILLED IN ON FAILURE 

STABUF - STATUS BUFFER 
SUBORDINATE ROUTINES USED: 

POLL 

POLLCRY 


FUNCTIONAL SIDE EFFECTS: 
NONE 


CALLING SEQUENCE: 


apeeras processing if ERR set - only -_ word in status packet 
BI 


MOVB STABUF ,R1 
BEQ 25$ 
MOV #<STABUF +2>,R2 


get number of following status words 
branch if none 
get address of where to put them 


(en | ee 


GLOBAL AREAS 


005154 
005156 
005164 
005166 
005166 
005174 
005202 
005210 
005216 
005220 
005220 
005222 
005224 
005230 
005232 


1470 
1471 
1472 


1473 
1474 


1475 


005302 
005306 
005310 
005312 
005312 
005314 
005316 


005324 
005330 
005332 
005332 
005340 
005346 
005354 
005362 
005364 
005364 
005366 


005370 
005376 
005400 
005406 
005410 
005416 
005420 
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GLOBAL SUBROUTINES SECTION 


000207 
032777 
001017 


012737 
012737 
012737 
012737 


000261 
000207 
017722 
077134 
000434 


022777 
001417 


012737 
012737 
012737 
012737 


000261 
000207 


004737 
103003 


000261 
000207 
012777 


004737 
103017 


012737 
012737 
012737 
012737 


000261 
000207 


122737 
001410 
122737 
001404 
122737 
001017 


020000 


000002 
000006 
003465 
004302 


175004 


100000 


000002 
000007 
003541 
004302 


004512 


003000 
004512 


000002 
000011 
003652 
004302 


175046 


002202 
002204 
002206 
002210 


174772 


002202 
002204 
002206 
002210 


174706 


002202 
002204 
002206 
002210 


002667 
002667 
002667 


RETURN 

208: BIT #VS.PRY,@CURCSR 
BNE 22$ 
ERR.FILLIN 6,ERR6 
MOV #2 ,ERRTYP 
MOV #6 ,ERRNBR 
MOV #ERR6, ERRMSG 
MOV #ERRCODE , ERRBLK 
ERROR 
ERR.RETURN 
SEC 
RETURN 

228: MOV SCURPAR, (R2)+ 
SOB R1,10$ 

25$: BR 60$ 


;DMA enabled - status packet is 


308: CMP #PI.AVA,@CURPAR 
BEQ 40$ 
ERR.FILLIN 7,ERR7 
MOV #2 ,ERRTYP 
MOV #7 ,ERRNBR 
MOV #ERR7, ERRMSG 
MOV #ERRCODE , ERRBLK 
ERROR 
ERR.RETURN 
SEC 
RETURN 
40$: CALL POLLCRY 
BCC 50$ 
ERROR 
ERR.RETURN 
SEC 
RETURN 
50$: MOV #PI.ACK,@CURCSR 
60$: CALL POLLCRY 
BCC 70$ 
ERR.FILLIN 9. ,ERR9 
MOV #2,ERRTYP 
MOV #9. ,ERRNBR 
MOV #ERRI, ERRMSG 
MOV #ERRCODE , ERRBLK 
ERROR 
ERR.RETURN 
SEC 
RETURN 
70$: CMPB #DI.ERP,STABUF +1 
BEQ 75$ 
CMPB #0I.ERS,STABUF +1 
BEQ 75$ 
CMPB #D0I.ERL,STABUF +1 
BNE 80$ 
75$: ERR.FILLIN 8. ,ERR& 





SEQ 0034 


; PRY ? 
; branch if yes 


assume hard error for now 
get error 6 

get error ERR6 

get error routine 


; get a status word 
; again 


written straight to status buffer 


; is there a packet available ? 
; branch if yes 


; assume hard error for now 
; get error 7 

; get error ERR7 

; get error routine 


; poll for CRY 
; branch if OK 


; return if error 


; send status ack 


+ poll for CRY 
; branch if OK 
; error 
; assume hard error for now 
; get error 9. 
; get error ERR 
; get error routine 


error status packet ? 
branch if yes 
ergor status packet ? 
branch if yes 
error status packet ? 
branch if not 





GLOBAL AREAS 


005420 
005426 
005434 
005442 
1506 005450 
1507 005452 
005452 
005454 
1508 
1509 005456 
005456 
005460 
1510 
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GLOBAL SUBROUTINES SECTION 


012737 
012737 
012737 
012737 


000261 
000207 


000241 
000207 


000002 
000010 
003611 
004302 


002202 
002204 
002206 
002210 


80$: 


MOV #2 ,ERRTYP ; assume hard error for now 
MOV #8.,ERRNBR ; get error 8. 

MOV #ERRS, ERRMSG ; get error ERR8 

MOV #ERRCODE ,ERRBLK ; get error routine 

ERROR 

ERR.RETURN 

SEC 


RETURN 
OK .RETURN 


CLC 
RETURN 


SEQ 0035 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 


Pee a line IR a 


005462 
005462 
005466 


005470 
005476 
005500 
005506 
005514 


005516 
005524 
005530 
005532 
005536 
005542 
005544 
005546 
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005764 
001060 


032777 
001407 
012737 
017737 
000444 


017737 
113701 
001436 
012702 
004737 
103003 


000002 


040000 
000001 
174522 
174512 
002666 


002670 
004314 


174534 


002666 
002670 


002666 


SEQ 0036 


A 
; FUNCTIONAL DESCRIPTION: 

$ SUBROUTINE TO GET A STATUS PACKET FROM THE VSV21 INTO STATUS BUFFER. 

3 THIS INCLUDES BOTH PROGRAMMED I/0 AND DMA MODES. 

: to. he eon IS VERY SIMILAR TO GETST1 BUT IS CALLED AFTER A COMMAND IS SENT 
; eee eee 


; INPUTS: 
NONE 


; IMPLICIT INPUTS: 

; DMASET - DMA ENABLED FLAG 

; STABUF - STATUS BUFFER 

H CURCSR - CSR ADDRESS 

; L$TEST - CURRENT TEST 

; OUTPUTS: 

; CONDITION CODE - CLEAR = SUCCESS 

; - SET = FAILURE 

; IMPLICIT OUTPUTS: 

H ERROR BLOCK - FILLED IN ON FAILURE 

: STABUF - STATUS BUFFER 

; SUBORDINATE ROUTINES USED: 

; POLL 

; POLLCRY 

; FUNCTIONAL SIDE EFFECTS: 

; NONE 

; CALLING SEQUENCE: 

; CALL GETST2 3GO TO ROUTINE 

; BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 

gee 

GETST2:: 
TST DMASET(R4) ; DMA enabled ? 
BNE 30$ ; branch if yes 

;DMA not enabled - get status packet via parameter register 

; special processing if ERR set - only one word in status packet 
BIT #VS.ERR,@CURCSR ; ERR ? 
BEQ 5$ ; branch if no 
MOV #1,STABUF ; pretend status packet has a header 
MOV OCURPAR, STABUF +2 ; get rest of packet 
BR 25$ 

S$: MOV O@CURPAR, STABUF get status header word 
MOVB STABUF ,R1 get number of following status words 
BEQ 25$ branch if none 


MOV #<STABUF +2>,R2 
10$: CALL POLL 


get address of where to put them 
poll 


BCC 20$ 
ERROR 
ERR. RETURN 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1569 
1570 
1571 


005546 
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000261 
000207 
032777 
001017 


012737 
012737 
012737 
012737 


000261 
000207 
017722 
077134 
000434 


022777 
001417 


012737 
012737 
012737 
012737 


000261 
000207 


004737 
103003 


000261 
000207 
012777 


004737 
103017 


012737 
012737 
012737 
012737 


000261 
000207 


122737 
001414 
122737 
001410 
022737 
001423 


174410 


100000 


000002 
000007 
003541 
004302 


004512 


003000 
004512 
000002 
000011 


003652 
004302 


000005 
000176 
000003 





174452 


002202 
002204 
002206 
002210 


174376 


002202 
002204 
002206 
002210 


174312 


002210 


002667 
002667 
002114 


20%: 


22$: 
25$: 


SEC 

RETURN 

BIT #VS.PRY,@CURCSR 
BNE 22$ 

ERR.FILLIN 6,ERR6 

MOV #2 ,ERRTYP 

MOV #6 ,ERRNBR 

MOV #ERR6 , ERRMSG 

1 #ERRCODE , ERRBLK 


ERR.RETURN 

SEC 

RETURN 

MOV ACURPAR, (R2)+ 
SOB R1,10$ 

BR 60$ 


DMA enabled - status packet is 


30$: 


40$: 


50$: 
60$: 


70$: 


CMP PI. AVA,@CURPAR 
BEQ 40$ 

ERR.FILLIN 7,ERR7 
MOV #2,ERRTYP 

MOV #7 ,ERRNBR 

MOV #ERR7, ERRMSG 
MOV #ERRCODE , ERRBLK 
ERROR 

ERR.RETURN 

SEC 

RETURN 


CALL POLLCRY 
BCC 50$ 


ERR.RETURN 
SEC 


RETURN 
MOV #PI.ACK,@CURCSR 


CALL POLLCRY 

BCC 70$ 

ERR.FILLIN 9.,ERRO 
MOV #2,ERRTYP 

MOV #9. , ERRNBR 

MOV #ERRI, ERRMSG 
MOV #ERRCODE , ERRBLK 


ERR.RETURN 
SEC 
RETURN 
CMPB + trace caiaati 
$ 
CMPB @DI.ERS, STABUF +1 
75$ 


CMP #3,L$TEST 
BEQ 80$ 


+ assume hard error for now 
get error 6 

get error ERR6 

get error routine 


written straight to status buffer 


; is there a packet available ? 


assume hard error for now 
get error 7 

get error ERR7 

get error routine 


a 
i 


send status ack 


assume hard error for now 
get error 9. 

get error ERR9 

get error routine 














SEQ 0037 


PRY ? 
branch if yes 


get a status word 
again 


branch if yes 


poll for CRY 
branch if OK 


return if error 


poll for CRY 
branch if OK 
error 


error status packet ? 
branch if yes 

error status packet ? 
branch if yes 

test 3 (error expected) ? 
branch if yes 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


-— 


1604 006014 
1605 006022 
1606 006024 


1607 006054 


1608 006056 


1609 
1610 006062 


1611 
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122737 
001017 


012737 
012737 
012737 
012737 


000261 
000207 


000241 
000207 


000177 


75$: 


80$: 


CMPB #DI.ERL, STABUF +1 ; error status packet ? 
BNE 80$ ; branch if not 
ERR. FILLIN 8. ,ERR8S 

MOV #2 ,ERRTYP ; assume hard error for now 
MOV #8.,ERRNBR ; get error 8. 

MOV #ERR8, ERRMSG ; get error ERRS 

de #ERRCODE ,ERRBLK ; get error routine 
ERR.RETURN 

SEC 

RETURN 

OK .RETURN 

CLC 

RETURN 








SEQ 0038 
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GLOBAL SUBROUTINES SECTION 


1613 i+ 
1614 ; FUNCTIONAL DESCRIPTION: 
an ; SUBROUTINE TO WRITE DATA USING DMA. 
1617 ; INPUTS: 
1618 ; NONE 
1619 
1620 ; IMPLICIT INPUTS: 
1621 ; COMBUF - COMMAND BUFFER CONTAINING : 
1622 ; DMA BUFFER ADDRESS IN COMBUF +4 
a ; DMA BUFFER LENGTH IN COMBUF +6 
1625 ; OUTPUTS: 
1626 ; CONDITION CODE - CLEAR = SUCCESS 
1627 ; - SET = FAILURE 
1628 
1629 s IMPLICIT OUTPUTS: 
1630 ; NONE 
1631 
1632 ; SUBORDINATE ROUTINES USED: 
1633 ; DOCOM 
1634 
1635 s FUNCTIONAL SIDE EFFECTS: 
1636 ; NONE 
1637 
1638 ; CALLING SEQUENCE: 
1639 ; MOV @BUF ADD , COMBUF +4 sGET DMA BUFFER ADDRESS 
1640 j MOV @BUF LEN, COMBUF +6 sGET DMA BUFFER LENGTH 
1641 ; CALL WRAMS :GO TO ROUTINE 
ett} ; BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
gece 

1644 006066 012737 002104 002616 WRAMS:: MOV @01.WRA, COMBUF ; load write ram command code protocol. 
1645 006074 005037 002620 CLR COMBUF +2 + increment address to bottom 16 bits 
-— 006100 012737 000170 002626 MOV #120. ,COMBUF +8. ; page number in ram of where to write. 
1648 006106 DO . COMMAND PI.CMA,1$ ; do the DMA 

006106 012737 002400 002614 MOV @PI.CMA, COMAND 

006114 012737 002734 002216 MOV #1500. ,POLCNT 

006122 004737 004572 CALL DOCOM 

006126 103000 Bcc ‘1$ 
eae 006130 000207 1s: RETURN ; return failed 


-— 















SEQ 0039 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 


006132 


006132 
006136 
006142 
006144 


006146 
006154 
006160 


005166 
006166 
006174 
006202 
006206 
006210 
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013701 
013702 
105021 
077202 


012737 
005037 
012737 


012737 
012737 
004737 
103000 
000207 





002622 
002624 


002103 
002620 
000170 


002400 
002734 
004572 


002616 
002626 


002614 
002216 


3*¢ 


; FUNCTIONAL DESCRIPTION: 


; SUBROUTINE TO READ DATA USING DMA. 


3s INPUTS: 
3 NONE 


; IMPLICIT INPUTS: 
COMBUF 


; OUTPUTS: 
: CONDITION CODE - CLEAR = SUCCESS 
; - SET = FAILURE 


; IMPLICIT OUTPUTS: 
; 








SEQ 0040 


- COMMAND BUFFER CONTAINING : 


DMA BUFFER ADDRESS IN COMBUF +4 
DMA BUFFER LENGTH IN COMBUF +6 


DMA BUFFER CONTAINING THE DMA‘D DATA 


; CORRUPTS REGISTERS R1,R2 
; SUBORDINATE ROUTINES USED: 
DOCOM 


s FUNCTIONAL SIDE EFFECTS: 
NONE 


; CALLING SEQUENCE: 

; MOV BUF ADD , COMBUF +4 ;GET DMA BUFFER ADDRESS 
; MOV #BUFLEN, COMBUF +6 sGET DMA BUFFER LENGTH 
H CALL RRAMS 3GO TO ROUTINE 

; BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 


RRAMS:: 
sclear read buffer 
MOV COMBUF +4,R1 
MOV COMBUF +6 ,R2 
10$: CLRE (R1)-+ 
SOB R2,10$ 
sread into read buffer 
MOV #DI.RRA, COMBUF 
CLR COMBUF +2 
MOV #120. ,COMBUF +8. 


DO. COMMAND PI.CMA,20$ 
MOV #PI.CMA, COMAND 
MOV #1500. ,POLCNT 
CALL DOCOM 
BCC 20$ 

20$: RETURN 


get address of read buffer 
get length in bytes to clear 
clear read buffer 

next byte 


load write ram command code protocol. 
increment to bottom 16 bits 
page number in ram of where to read 


do the DMA 


return failed 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
17a 

171 

1712 
i713 
1714 
1715 
1716 
1717 
1718 
i719 
1720 


006212 
006216 
006222 
006226 
006230 
006232 
006232 
006240 
006246 
006254 
006262 
006264 
006264 
906266 
005270 
006272 
006272 
006274 


ee 
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012701 
012702 
012703 
122122 
001417 


012737 

12737 
012737 
012737 


000261 
000207 
077322 


000241 
000207 


002762 
003036 
000054 


000002 
000013 
003753 
004302 





002202 
002204 
002206 
002210 


SEQ 0041 
3¢°¢ 
3 FUNCTIONAL DESCRIPTION: 
’ SUBROUTINE TO COMPARE DATA WRITTEN BY WRAMS WITH DATA READ BACK BY RRAMS. 
; INPUTS; 
3 NONE 
: IMPLICIT INPUTS: 
: DMAOBUF - ASSUMED OUTPUT BUFFER USED BY A PREVIOUS CALL TO WRAMS 
3 OMAIBUF - ASSUMED INPUT BUFFER USED BY A PREVIOUS CALL TO RRAMS 
3 DMALEN - LENGTH OF ABOVE BUFFERS 
; OUTPUTS: 


CONDITION CODE - CLEAR = SUCCESS 
- SET = FAILURE 


; IMPLICIT OUTPUTS: 


CORRUPTS REGISTERS R1,R2 


+ SUBORDINATE ROUTINES USED: 
NONE 


s FUNCTIONAL SIDE EFFECTS: 
NONE 


3; CALLING SEQUENCE: 
H CALL CRAMS 3GO TO ROUTINE 
3 BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 
CRAMS:: MOV #DMAOBUF ,R1 + get start address of data 
MOV #DMAIBUF ,R2 ; get start address of data read back 
MOV #OMALEN,R3 ; get length in bytes 
10$: CMPB (R1)+,(R2)+ ; are we o.k 
BEQ 20$ ; branch if yes 
ERR.FILLIN 11.,ERR1i1 ; error return if not 
MOV 42, ERPRTYP + assume hard error for now 
MOV #11. ,ERRNBR + get error i1. 
MOV #ERR11,ERRMSG ; get error ERR11 
MOV #ERRCODE ,ERRBLK ; get error routine 
ERROR 
ERR.RETURN 
SEC 
RETURN 
20%: SOB R3,10$ ; branch if we have not finished 
OK .RETURN 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 


006276 
006276 
006302 
006304 
006306 
006310 
006314 
006316 
006324 
006330 
006334 
006336 
006344 
006350 
006352 
006372 
006374 
005376 
006412 
006416 
006420 
006426 
006434 
006442 


005444 
006541 
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zee 
; FUNCTIONAL DESCRIPTION: 








SEQ 0042 


5 SUBROUTINE TO SET UP TEST MASK FOR EVERY MICRODIAGNOSTIC TEST. 


; INPUTS: 
3 NONE 


; IMPLICIT INPUTS: 
3 LSTEST 


3; OUTPUTS: 

H NONE 

; IMPLICIT OUTPUTS: 
3 CORRUPTS REGISTERS R1,R2 
: PBLOC+2 

; TMASKS 


SUBORDINATE ROUTINES USED: 
NONE 

; FUNCTIONAL SIDE EFFECTS: 

H NONE 


; CALLING SEQUENCE: 
: CALL TSTMSK 


- CURRENT TEST 


g7-< 
TSTMSK:: 
013702 002114 MOV LS$TEST,R2 ; 
005302 DEC R2 3 
006302 ASL R2 ; 
060402 ADD R4,R2 : 
004737 007112 CALL TSTONCE 8 
001047 BNE 40$ ; 
012737 000400 002224 MOV #<14#400>,PBLOC+2 3 
RFLAGS Ri 3 
032701 100000 BIT #HOE ,R1 3 
001403 BEQ 10$ 3 
152737 000100 002224 BISB #BIT6,PBLOC+2 3 
032701 040000 10$: BIT #LOE,R1 3 
001426 BEQ 30$ F 
PRINTF #TM1L 3 
MANUAL F 
BNCOMPLETE 20$ 3 
GMANIL TM2,TEMP1,177777,NO 3 
005737 002212 TST TEMP1 
001403 BEQ 30$ : 
152737 000200 002224 20%: BISB #BIT7,PBLOC+2 3 
013762 002224 000010 303: MOV PBLOC+2, TMASKS(R2) ’ 
016237 000010 002224 40$: MOV TMASKS(R2),PBLOC+2 3 
000207 RETURN 
045 116 045 =TM1: .ASCIZ /sNSAs* AN ON-BOARD ERROR 
104 125 105 M2: -ASCIZ /DUE TO ON-BOARD LOE FLAG 
EVEN 


- LOCATION TO STORE TEST MASK ( TEMPORARY ) 
- LOCATION TO STORE TEST MASK ( PERMANENT ) 


:GO TO ROUTINE 


get current test ( 1 - MAXTST ) 
Get offset from 0 

in bytes. 

Get offset from FLAGS 

First time through this test ? 
branch if not 

test count = 1 ( top byte ) 
get DRS operator flag settings 
HOE bit set ? 

branch if not 

set the HOE bit 

LOE bit set ? 

branch if not 

print warning message 

manual allowed ? 

No - do same as op answer yes 
op wish LOE set ? 


branch if no 

set the LOE bit 

save the mask 

copy saved mask into parameter block 


WILL HANG THIS TEST INDEFINITELY ##/ 
SET - DO YOU WISH IT SET ?/ 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1624 
1625 
1826 
1827 
1828 
1829 
1830 


1831 
1832 
1833 
1834 


1835 
1836 
1837 


1838 


006626 
006632 
006636 
006636 
006644 
006650 
006652 
006654 
006654 
006656 
006660 
006664 
006666 
006666 
006670 
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012701 
012702 


012737 
004737 
103003 


000261 
000207 
012277 
077111 


000241 
000207 


000004 
002222 


002734 
004512 


173350 


002216 


3+ 


H CALL MVPAR :GO TO ROUTINE 
3 BCS ERROR 
MVPAR:: MOV #4,R1 3 
MOV #PBLOC ,R2 F 
SET.POLCNT 
MOV #1500. ,POLCNT 
10$: CALL POLLCRY : 
BCC 20$ 3 
ERROR 
ERR. RETURN 
SEC 
RETURN 
208: MOV CR2)+,@CURPAR ; 
soB R1,10$ ; next 
OK .RETURN 
CLC 
RETURN 


FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO MOVE MICRODIAGNOSTIC PARAMETERS INTO THE PARAMETER REGISTER. 


INPUTS: 
NONE 


IMPLICIT INPUTS: 
PBLOC 
CURPAR 
OUTPUTS: 
CONDITION CODE 


IMPLICIT OUTPUTS: 





BUFFER CONTAINING MICRODIAGNOSTIC PARAMETERS 
CURRENT PARAMETER REGISTER ADDRESS 


CLEAR = SUCCESS 
SET = FAILURE 


CORRUPTS REGISTERS R1,R2 
SUBORDINATE ROUTINES USED: 
LLCRY 


PO 


FUNCTIONAL SIDE EFFECTS: 
NONE 


CALLING SEQUENCE: 


sCARRY SET IF ROUTINE HAD ERROR 






SEQ 0043 







get length to move 
get start address of Pbloc 


wait for SVL CRY 
branch if OK 


move parameter into parameter reg 


GLOBAL AREAS 


1870 006672 
1871 006700 
1872 006706 
1873 006710 
006710 
1874 006716 
1875 006720 
1876 006726 
1877 006732 
1878 006734 
1879 006736 
1880 006744 
1881 006746 
006746 
006754 
006762 
006770 
1882 006776 
1883 007000 
007000 
007002 
1884 007004 
1885 007010 
1886 007012 
007012 
007020 
007026 
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GLOBAL SUBROUTINES SECTION 


012737 
032737 
001004 


012737 
000403 
012737 
004737 
103001 
000207 
122737 
001417 


012737 
012737 
012737 
012737 


000261 
000207 
005737 
001417 


012737 
012737 
012737 


002000 
000200 


002734 
177777 
004572 
000011 


000002 
000014 
004000 
004302 


002670 


000002 
000015 
004065 


002614 
002224 


002216 
002216 


002667 


002202 
002204 
002206 
002210 


002202 
002204 
002206 


3+ 
3 


+ 
FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO INVOKE A MICRODIAGNOSTIC 


INPUTS: 
NONE 
IMPLICIT INPUTS: 
POLCNT - POLL COUNT 
PBLOC - BUFFER FOR MICRODIAGNOSTIC PARAMETERS 
STABUF - STATUS BUFFER FOR RETURNS FROM vSV21 
OUTPU 


TS: 
CONDITION CODE CLEAR = SUCCESS 


SET = FAILURE 


IMPLICIT OUTPUTS: 
NONE 

SUBORDINATE ROUTINES USED: 
DOCOM 


FUNCTIONAL SIDE EFFECTS: 
NONE 


CALLING SEQUENCE: 
CALL DOMIC sGO TO ROUTINE 
BCS ERROR sCARRY SET IF ROUTINE HAD ERROR 


DOMIC:: MOV #PI.TST,COMAND 


BIT #BIT7,PBLOC+2 ; LOE ? 
BNE 10$ ; branch if yes 
SET.POLCNT ; set ordinary timeout 
MOV #1500. ,POLCNT 
BR 20$ 
10$: MOV #-1,POLCNT ; set infinite timeout 
20$: CALL DOCOM ; invoke micro diagnostic. 
BCC 30$ 
RETURN 
30$: CMPB #DI.MIC, STABUF +1 ; correct status return ? 
BEQ 40$ ; branch if yes 
ERR.FILLIN 12.,ERR12 ; error if no 
MOV #2, ERRTYP ; assume hard error for now 
MOV #12. ,ERRNBR ; get error 12. 


MOV #ERR12,ERRMSG ; get error ERR12 
MOV #ERRCODE,ERRBLK ; get error routine 


ERROR 
ERR. RETURN 
SEC 
RETURN 

40$: TST STABUF +2 ; test successful ? 
BEQ 50$ ; branch if YES 
ERR.FILLIN 13.,ERR13 ; error if no 
MOV #2,ERRTYP ; assume hard error for now 
MOV #13. ,ERRNBR ; get error 13. 


MOV #ERR13,ERRMSG ; get error ERR13 





SEQ 0044 
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SEQ 0045 
GLOBAL SUBROUTINES SECTION 
007034 012737 004302 002210 MOV #ERRCODE ,ERRBLK ; get error routine 
1887 007042 ERPuR 
1888 007044 ERR .RETUPN 
007044 000261 SEC 
007046 000207 RETURN 
1889 007050 50$: OK .RETUR?. 
007050 000241 cc 
007052 000207 RETURN 
1890 


agree 








rr rr ce 
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GLOBAL SUBROUTINES SECTION 









SEQ 0046 


1892 3++ 

1893 ; FUNCTIONAL DESCRIPTION: 

pte ; SUBROUTINE TO MARK CURRENT TEST AS HAVING BEEN DONE AT LEAST ONCE 
1896 ; INPUTS: 

1897 ; NONE 

1898 

1899 ; IMPLICIT INPUTS: 

1900 ; L$TEST - CURRENT TEST 

1901 

1902 ; OUTPUTS: 

1903 : NONE 

1904 

1905 ; IMPLICIT OUTPUTS: 

1906 ; CORRUPTS REGISTERS RO,R1 

foes ‘ ; FTHRU - FLAG BITS INDICATING IF TESTS HAVE BEEN DONE ONCE 
1909 ; SUBORDINATE ROUTINES USED: 

1910 3 NONE 

1911 

1912 ; FUNCTIONAL SIDE EFFECTS: 

£913 H NONE 

1914 

1915 ; CALLING SEQUENCE: 

tore ; CALL MRKONCE 3GO TO ROUTINE 

1918 007054 MRKONCE: : 

1919 007054 013700 002114 MOV L$TEST,RO ; get current test 

1920 007060 010401 MOV R4,R1 ; get address of flags 

1921 007062 020027 000017 CMP RO,#15. ; test 1-15 ? 

1922 007066 003404 BLE 10$ ; branch if yes 

1923 007070 162700 000017 SUB #15. ,RO0 ; get in range for a test > 15 
1924 007074 062701 000002 ADD #2,R1 i; point to second flag word (test > 15) 
1925 007100 006300 10$: ASL RO ; get offset from start of BITS 
1926 007102 056061 002244 000004 BIS BITSCRO),FTHRUCR1) ; set appropriate flag bit 
1927 007110 000207 RETURN 





rr rr, a 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1929 
1930 
1931 
1932 
1933 
1934 
1935 


Or rr a eee ce a eR 


007112 
007112 
007116 
007120 
007124 
007126 
007132 
007136 
007140 
007146 
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013700 
010401 
020027 
003404 
162700 
062701 
006300 
036061 
000207 





002114 
000017 


000017 
000002 


002244 000004 


+ 


SEQ 0047 


+ 
FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO TEST IF CURRENT TEST HAS BEEN DONE AT LEAST ONCE 


INPUTS: 

NONE 
IMPLICIT INPUTS: 

L$TEST - CURRENT TEST 

FTHRU - FLAG BITS INDICATING IF TESTS HAVE BEEN DONE ONCE 
OUTPUTS: 

Z BIT - SET INDICATES TEST HAS BEEN DONE AT LEAST ONCE 


- CLEAR INDICATES TEST HAS NOT BEEN DONE 
IMPLICIT OUTPUTS: 
CORRUPTS REGISTERS RO,R1 
SUBORDINATE ROUTINES USED: 
NONE 
FUNCTIONAL SIDE EFFECTS: 
NONE 


CALLING SEQUENCE: 


H CALL TSTONCE 3GO TO ROUTINE 
: BNE ATLEASTONCE sBRANCH IF TEST DONE AT LEAST ONCE 
— 
TSTONCE:: 
MOV L$TEST,RO ; get current test 
MOV R4,R1 + get address of flags 
CMP RO,#15 ; test 1-15 ? 
BLE 10$ ; branch if yes 
SUB #15. ,RO ; get in range for a test > 15 
ADD #2,R1 + point to second flag word (test > 15) 
10$: ASL RO + get offset from start of BITS 
BIT BITSCRO),FTHRUCR1) ; test appropriate flag bit 





GLOBAL AREAS 
GLOBAL SUBRGUTINES SECTION 


1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 


007150 
007150 
007154 
007156 
007156 
007160 
007162 
007166 
007170 
007172 
007174 


007176 
007202 
007204 
007214 
007214 
007216 


007220 


007226 
007226 
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005737 
001402 


000261 
000207 
013701 
005301 
006301 
005701 
001414 


005764 
001006 


000261 
000207 


016137 


000241 


002242 


002114 


000000 


007232 002222 





;* 


+ 





; FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 
H CALL 
3 BCS ERROR 
gs 
STTEST:: 
TST NOTEST 
BEQ S$ 
ERR. RETURN 
SEC 
RETURN 
5$: MOV L$TEST,R1 
DEC Ri 
ASL R1 
TST R1 
BEQ 20$ 


SUBROUTINE TO BE CALLED AT START OF EACH TEST TO PERFORM INITIALISATION. 


INPUTS : 
NONE 


; IMPLICIT INPUTS: 


L$TEST 
TIDONE 


OUTPUTS: 


CONDITION CODE 


IMPLICIT OUTPUTS: 


CURRENT TEST 
TEST 1 DONE FLAG 


- CLEAR = SUCCESS 
- SET = FAILURE 


CORRUPTS REGISTER R1 


PBLOC 


- FILLS IN CORRESPONDING MICRODIAGNOSTIC TEST NUMBER 
; SUBORDINATE ROUTINES USED: 
NONE 


FUNCTIONAL SIDE EFFECTS: 
NONE 


STTEST 


Test is not 1 - ensure that test 1 has already been done 


:GO TO ROU 
BRANCH IF 


TST TIDONECR4) ; 


BNE 
ERR.RETURN 
SEC 

RETURN 


10$ 
ERRHRD 1,E€RR1,ERRCODE 


TINE 
ERROR 


can test be done ? 


branch if yes 


error return if not 


get current test 


Get in range 0 - 40 
for offset calculations. 


is it test 1 ? 
exit if yes 


test 1 done ? 
branch if yes 


; error exit if not 


; Set up microdiagnostic test number in PBLOC 


10$: MOV 


208: OK .RETURN 
CLC 


MICNUM(R1),PBLOC 


; get microdiagnostic test number 






SEQ 0048 
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GLOBAL SUBROUTINES SECTION 


SEQ 0049 


- 097230 000207 RETURN 
2021 
a. sMicrodiagnostic test number versus test. ( -1 is null ) 


2024 007232 177777 #177777 #177777 MICNUM: .WORD -1.,-1.,-1.,0,1,2,3,4,5,6,7 
84 007260 000010 000011 000012 -WORD 8.,9.,10.,11.,11.,11.,12.,13.,-1. 
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GLOBAL SUBROUTINES SECTION 


2028 .TITLE MISCELLANEOUS SECTIONS 
2029 -SBTTL PROTECTION TABLE 

2030 

2031 500 

2032 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 

2033 ; TO PROTECT THE LOAD MEDIA. 

2034 ei 

2035 

2036 007302 BGNPROT 

2038 007302 000000 0 ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
2039 007304 177777 “1 ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
2040 007306177777 “1 ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 
2042 007310 ENDPROT 

2043 





SEQ 0050 
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INITIALIZE SECTION 


2094 007330 012700 
2095 007334 012701 
2096 007340 005020 
2097 007342 077102 
2098 007344 005037 


2104 0C7370 012737 
2105 007376 005237 
2106 007402 023737 
2107 007410 001437 
2108 007412 023727 
2109 007420 002033 


2112 007434 011137 
2113 007440 062737 
2114 007446 011137 
2115 007452 062737 
2116 007460 016137 
2117 007466 013701 
2118 007472 070127 
2119 007476 062701 
2120 007502 010104 


—— 





002304 
000140 


002242 


177777 
002220 
002220 


002220 





002220 
002012 
000004 


002232 


002234 
002236 





-SBTTL INITIALIZE SECTION 


3+ 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


; AT THE BEGINNING OF EACH PASS 


ge 
@<LENFLAGS*MAXUNIT>, Rl ; get length of FLAGS 


BGNINIT 
READEF #€F.START $ 
BCOMPLETE 10$ ; 
READEF #E€F.RESTART ; 
BNCOMPLETE 20$ ; 
10$: MOV @FLAGS ,RO 
MOV 
15$: CLR (RO)+ $ 
soB R1,15$ : 
CLR NOTEST ; 
20$: READEF #€F.CONTINUE 3 
BCOMPLETE END 3 
READEF #€F.NEW H 
BNCOMPLETE NEXT 3 
MOV #-1,LOGUNT 3 
NEXT: INC LOGUNT 3 
CMP LOGUNT ,L $UNIT 3 
BEQ ABORT : 
CMP LOGUNT,#MAXUNIT ; 
BGE ABORT F 
GPHARD LOGUNT,R1 ; 
BNCOMPLETE NEXT ; 
MOV C(R1),CURCSR 3 
ADD #2, CURCSR 3 
MOV (R1),CURPAR F 
ADD #4 ,CURPAR 3 
MOV 2(R1), CURVEC PF 
MOV LOGUNT ,R1 ; 
MUL @<LENFLAGS#2>, R1 
ADD #FLAGS,R1 
MOV R1,R4 
END: EXIT INIT 
ABORT: DOCLN 
ENDINIT 
EVEN 















SEQ 0051 


IF started by start THEN 
do start coding 
IF not started by restart THEN 
skip start coding 
t address of FLAGS 


clear out FLAGS 

next 

say tests can be done 

IF started by continue THEN 
don't get P-table 

IF not a new pass THEN 
skip setup 


initialise unit number 
next unit number 
IF passed operator's max unit number THEN 
abort pass 
IF passed max unit number THEN 
abort pass (N.B. OPERATOR'S MAX COULD BE >) 
Get hardware P-table address 
if not available get next 
get current device address from P-table 
add 2 to get current CSR 
get current device address from P-table 
add 4 to get current Parameter Register 
get current vector address 
get unit number 

; get offset from start of FLAGS 
; get true address of FLAGS for this unit 
save in R4 
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AUTODROP SECTION 


2128 .SBTTL AUTODROP SECTION 

2129 

2130 3+4 

2131 ; THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
2132 ; THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
2133 ; SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
2134 ; DROPPED FROM TESTING. 

2135 s-- 

2136 

2137 007514 BGNAUTO 

2138 

2145 

2146 007514 ENDAUTO 


—— 
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SEQ 0053 
CLEANUP CODING SECTION 
2148 -SBTTL CLEANUP CODING SECTION 
2149 
2150 zee 
215i s THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
on ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
2i "“* 
2154 
ates 007516 BGNCLN 
156 
2157 007516 023727 002220 000004 cmp LOGUNT , #MAXUNIT ; IF greater than max unit THEN 
2158 007524 002011 BGE 10$ 3 exit 
2159 007526 013700 002232 MOV CURCSR ,RO + get current CSR 
2160 007532 005040 CLR -(RO) ; Write to the previous word (i.e. H/W 
ter! : + register ) to reset VSV21. 
2163 007534 005064 000002 CLR DMASET(R4) ; say DMA disabled 
2164 007540 005064 000000 CLR TIDONECR4) ; say Test 1 not done 
tee 007544 005037 002242 CLR NOTEST ; say tests can be done 
2166 
2167 007550 10$: EXIT CLN 
2168 
2169 007554 ENDCLN 
2170 
& ene 





- see 
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CLEANUP CODING SECTION 








SEQ 0054 


4 .- TITLE HARDWARE TESTS 
1 
s195 -SBTTL TEST 1: VERIFY VSV21 PRESENCE 
17 
2176 
2177 ioe 
2178 ; This test verifies that there is a VSV21 device at the current CSR. 
2179 ; On the first pass it displays the version of the VSV21. It also disables 
2180 ; inrerrupts. 
2181 leah 
2182 
2183 007556 ST.TEST 
007556 004737 007150 CALL STTEST 
_ 007562 103002 BCC 30000$ 
184 
tyes s;SUBTEST 1 sends an interrupt mask to disable interrupts. 
i 
2187 007570 BGNSUB 
2188 007572 005064 000000 CLR TIDONECR4) ; say that TEST1 has not been done 
2189 007576 DO. COMMAND PI.IDS,10$ ; send over interrupt mask. 
007576 012737 001400 002614 MOV @PI.IDS,COMAND 
007604 012737 002734 0602216 MOV #1500. ,POLCNT 
007612 004737 004572 CALL DOCOM 
0C7616 103002 BCC 10$ 
2190 007620 ESCAPE TST 
2191 007624 005264 000000 10$: INC TIDONECR4) ; say TESTI done so that if powerup 
2192 ; ; when request firmware id will get 
2193 H ; error 
2194 007630 ENDSUB 
2195 
tH sSUBTEST 2 requests firmware ID and displays it 
1 
2198 007632 BGNSUB 
2199 007634 DO .COMMAND PI.IDM,10$ ; request firmware id 
007634 012737 000400 002614 MOV #PI.IDM,COMAND 
007642 012737 002734 002216 MOV #1500. ,POLCNT 
007650 004737 004572 CALL DOCOM 
007654 103004 BCC 10$ 
2200 007656 005064 000000 CLR TIDONECR4) ; say that TESTI has not been done 
2201 007662 ESCAPE TST 
2202 007666 005264 000000 10$: INC TIDONE(R4) ; say TEST1 done 
2203 007672 904737 007112 CALL TSTONCE ; first time through ? 
2204 007676 001044 BNE 20$ ; branch if not 
2205 907700 004737 007054 CALL MRKONCE + say not first time through 
2206 007704 000337 002670 SWAB STABUF +2 ; Rearrange 
2207 0077190 000337 002672 SWAB STABUF +4 i; firmware ID 
2208 007714 000337 002674 SWAB STABUF +6 + so that can be printed. 
2209 007720 000337 002676 SWAB STABUF +8, i; This assumes top byte zero. 
2210 007724 PRINTX #1TS1,#<STABUF+2> ; Print firmware id. 
2211 007750 PRINTX #TS2 
2212 007770 PRINTX #TS3 
2213 019010 20$: ENDSUB 
2214 
tH 010012 EXIT TST 
2217 019016 045 116 045 TS1i: -ASCIZ /#NSAFIRMWARE ID IS : #T/ 
2218 019046 045 116 062 TS2: -ASCIZ /#N2SATESTS 4,13,14,16 AND 17 WILL ABCRT WITH AN ERROR IF/ 
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SEQ 0055 

TEST 1: VERIFY VSV21 PRESENCE 

os55 010137 045 116 045 =1TS3: -ASCIZ /sSNSAEXTERNAL LOOPBACK CONNECTORS ARE NOT ATTACHED TO PORTS 0-3/ 

2221 -EVEN 

e222 

2223 010236 ENDTST 

2224 











a rE en 
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SEQ 0056 
TEST 1: VERIFY VSV21 PRESENCE 
2226 
2227 -SBTTL TEST 2: IN DEPTH Q22 BUS TEST 
2228 
2229 
2230 ioe 
2231 ; This test performs an in-depth test of the Q22 bus by means of exercising the 
2232 ; DMA mechanism in both directions. It sets up the DMA protocol and must be 
oo ; done before other tests requiring DMA. 
2235 
2236 010240 ST. TEST 
010240 004737 007150 CALL STTEST 
_— 010244 103002 BCC 30001$ 
coos sSUBTEST 1 moves DMA buffer descriptors through the parameter register 
2240 010252 BGNSUB 
2241 010254 012701 002604 MOV #BUFDES,R1 + get address of buffer descriptors 
44 010260 012702 000004 MOV #4 ,R2 ; length to move 
2244 010264 10$: SET.POLCNT 
010264 012737 002734 002216 MOV #1500. ,POLCNT 
2245 010272 004737 004512 CALL POLLCRY ; wait for SVL CRY 
2246 010276 103002 BCC 20$ ; branch if OK 
2247 010300 ESCAPE TST 
2248 010304 012177 171724 20$: MOV (R1)+,@CURPAR ; move buffer desc. into parameter reg 
2249 010310 077213 SOB R2,10$ ; next descriptor 
2250 010312 ENDSUB 
2251 
aoae ;SUBTEST 2 does the buffer sent command 
2254 010314 BGNSUB 
2255 010316 DO.COMMAND PI.SEN,BUFOK ; do buffers sent command 
010316 012737 001000 002614 MOV #PI.SEN, COMAND 
010324 012737 002734 002216 MOV #1500. ,POLCNT 
010332 004737 004572 CALL DOCOM 
010336 103016 BCC BUFOK 
2256 010340 ENDSUB 
2257 
4 ;SUBTEST 3 does a buffers cancelled command if SUBTEST 2 failed 
2260 010342 BGNSUB 
2261 010344 DO. COMMAND PI.CAN,10$ ; do buffers cancelled command 
010344 012737 001001 002614 MOV #PI.CAN,COMAND 
010352 012737 002734 002216 MOV #1500. ,POLCNT 
010360 004737 004572 CALL DOCOM 
010364 103000 BCC 10$ 
2262 010366 10$: ESCAPE TST 
2263 010372 ENDSUB 
2264 
oe sSUBTEST 3 writes to RAM using DMA. This is SUBTEST 3 if 2 is successful. 
2267 010374 BUFOK: BGNSUB 
2268 010376 005264 000002 INC DMASET(R4) ; record DMA enabled 
2269 010402 DO.WRAMS ; write to RAM 
019402 012737 002762 002622 MOV #DMAOBUF , COMBUF +4 
010410 012737 000054 002624 MOV #DMALEN, COMBUF +6 
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SEQ 0057 
TES’ 2: IN DEPTH Q22 BUS TEST 

010416 004737 006066 CALL WRAMS 
2270 010422 103002 BCC 10$ ; carry on if OK 
2271 010424 ESCAPE TST 
2272 010430 10$: ENDSUB 
2273 
ies ;SUBTEST 4 reads from RAM using DMA, 
2276 010432 BGNSUB 
2277 010434 DO.RRAMS ; read from RAM 

010434 012737 003036 002622 MOV #DMAIBUF , COMBUF +4 

010442 012737 000054 002624 MOV #DMALEN, COMBUF +6 

010450 004737 006132 CALL RRAMS 
2278 010454 103002 BCC 10$ 3; carry on if OK 
2279 010456 ESCAPE TST 
2280 010462 10$: ENDSUB 
2281 
aes ;SUBTEST 5 compares data read back with data written 
2284 010464 BGNSUB 
2285 010466 004737 006212 CALL CRAMS ; compare the patterns 
2286 010472 103002 BCC 10$ ; carry on if OK 
2287 010474 ESCAPE TST 
2288 010500 10$: ENDSUB 
2289 
2290 010502 EXIT TST 
2291 
2292 -EVEN y 
2293 010506 ENDTST 
2294 


rrr cr arr in rE RR nS RR RRR REE EN RA ER SR SR ee 








-- 
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SEQ 0058 
TEST 2: IN DEPTH Q22 BUS TEST 
2296 
2297 .SBTTL TEST 3: FORCED ERROR TEST 
2298 
2299 
2300 3+ 
teed ; This test sends an invalid command to the VSV21 to provoke an error packet. 
2303 
2304 010510 ST.TEST 
010510 004737 007150 CALL STTEST 
010514 103002 BCC 30002$ 
2305 
toe ;SUBTEST 1 sends an invalid command 
2308 010522 BGNSUB 
2309 010524 DO. COMMAND PI.RUB,10$ ; send a rubbish command 
010524 012737 177777 002614 MOV #PI.RUB,COMAND 
010532 012737 002734 002216 MOV #1500. ,PGLCNT 
010540 004737 004572 CALL DOCOM 
010544 103000 BCC 10$ 
2310 010546 122737 000177 902667 10$: CMPB #0I.ERL,STABUF +1 ; correct error return ? 
2311 010554 001002 BNE 20$ ; branch if not 
oak 010556 EXIT TST ; received an error - exit ok 
2314 010562 20$: ERR. FILLIN 14.,ERR14 
2315 010612 ERROR 
2316 010614 ESCAPE TST 
2317 010620 ENDSUB 
2318 
2319 010622 ENDTST 








HARDWARE TESTS MACRO YOS.02 Friday 02-Aug-85 15:18 Page 32 
TEST 3: FORCED ERROR TEST 









SEQ 0059 










2321 

2322 -SBTTL TEST 4: FULL ON BOARD TESTS 

2323 

2324 

2325 tee 

2326 ; This test invokes full on-board VSV21 microdiagnostic tests. 

2327 ; If the HOE flag is specified the VSV21 will halt on error. 

2328 ; If the LOE flag is specified the operator will be given the choice on the 
2329 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2330 ; selects yes the test may hang indefinitely as the on board will not return 
tat ; control to the host but will continue looping. 


2333 
2334 010624 ST. TEST 
010624 004737 007150 CALL STTEST 
oues 010630 103002 BCC 30003$ 
2336 010636 004737 006276 CALL TSTMSK ; get test mask for microdiagnostic 
eet 010642 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2339 sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
2340 ; sparameter register oo 
2341 
2342 010646 BGNSUB 
2343 010650 004737 006626 CALL MVPAR ; move the parameters 
2344 010654 103002 BCC 10$ 
2345 010656 ESCAPE TST 
2346 010662 10$: ENDSUB 
2347 
Sees sSUBTEST 2 invokes the microdiagnostic test 
2350 010664 BGNSUB 
2351 010666 004737 006672 CALL DOMIC 
2352 010672 103002 BCC 10$ 
2353 010674 ESCAPE TST 
2354 010700 10$: ENDSUB 
2355 
2356 010702 ‘ENDTST 
2357 











rc 


HARDWARE TESTS MACRO YO 


TEST 4: FULL ON BOARD TESTS 


2372 010704 
010704 
010710 


2374 010716 
2375 010722 


2380 010726 
2381 010730 
2382 010734 
2383 010736 
2384 010742 


2388 010744 
2389 010746 
2390 010752 
2391 010754 
2392 010760 


2394 010762 


004737 
103002 


004737 
004737 


004737 
103002 


004737 
103002 





007150 


006276 
007054 


006626 


006672 
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SEQ 0060 


-SBTTL TEST 5: ROM CHECKSUM TEST 


; This test invokes the on-board VSV21 ROM CHECKSUM test. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given the choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
+ control to the host but will continue looping. 


ST. TEST 
CALL STTEST 
BCC 30004$ 


CALL TSTMSK ; get test mask for microdiagnostic 
CALL MRKONCE + mark test as entered at least once 


;SUBTEST 1 moves the parameters for the microdiagnostics test through the 
sparameter register 


BSNSUB 

CALL MVPAR ; move the parameters 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


sSUBTEST 2 invokes the microdiagnostic test 
CALL DOMIC 
BCC 10$ 
ESCAPE TST 

10$: ENDSUB 


ENDTST 
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SEQ 0061 
TEST 5: ROM CHECKSUM TEST 

2396 
2397 -SBTTL TEST 6: NVRAM CHECKSUM TEST 
2398 
2399 
2400 +e 
2401 ; This test invokes the on-board VSV21 NVRAM CHECKSUM test. 
2402 ; If the HOE flag is specified the VSV21 will halt on error. 
2403 ; If the LOE flag is specified the operator will be given the choice on the 
2404 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2405 ; selects yes the test may hang indefinitely as the on board will not return 
tee ; control to the host but will continue looping. 
2408 
2409 010764 ST. TEST 

010764 004737 007150 CALL STTEST 
a 010770 103002 BCC 30005$ 
2411 010776 004737 006276 CALL TSTMSK + get test mask for microdiagnostic 
tf 011002 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2414 ;SUBTEST 1 moves the parameters for the microdiagnostics test through the 
2415 s;parameter register 
2416 
2417 011006 BGNSUB 
2418 011010 004737 006626 CALL MVPAR ; move the parameters 
2419 011014 103002 BCC 10$ 
2420 011016 ESCAPE TST 
2421 011022 10$: ENDSUB 
2422 
a sSUBTEST 2 invokes the microdiagnostic test 
2425 011024 BGNSUB 
2426 011026 004737 006672 CALL DOMIC 
2427 011032 103002 BCC 10$ 
2428 011034 ESCAPE TST 
2429 011040 10$: ENDSUB 
2430 
2431 011042 ENDTST 
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NVRAM CHECKSUM TEST 


TEST 6: 


2433 
2434 


011044 
011044 
011050 


011056 
011062 


011066 
011070 
011074 
011076 
011102 


011104 
011106 
011112 
011114 
011120 


011122 


004737 
103002 


004737 
004737 


004737 
103002 


004737 
103002 


007150 


006276 
007054 


006626 


006672 


SEQ 0062 


-SBTTL TEST 7: RAM TEST 


3+ 

; This test invokes the on-board VSV21 RAM test. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given the choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
; control to the host but will continue looping. 

; 


ST.TEST 
CALL STTEST 
BCC 30006$ 


CALL TSTMSK ; get test mask for microdiagnostic 
CALL MRKONCE ; mark test as entered at least once 


sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
sparameter register 


CALL MVPAR + move the parameters 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


;SUBTEST 2 invokes the microdiagnostic test 


10$: ENDSUB 
ENDTST 
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RAM TEST 


TEST 7: 


2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 


2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 


011124 
011124 
011130 


011136 
011142 


011146 
011150 
011154 
011156 
011162 


011164 
011166 
011172 
011174 
011200 


011202 


004737 
103002 


004737 
004737 


004737 
103002 


004737 
103002 


007150 


006276 
007054 


006626 


006672 


-SBTTL TEST 8: RAM ADDRESSING TEST 


ead 
; This test invokes the on-board VSV21 RAM ADDRESSING test. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given the choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
; control to the host but will continue looping. 

aaa 


ST. TEST 

CALL STTEST 

BCC 30007$ 

CALL TSTMSK ; get test mask for microdiagnostic 
CALL MRKONCE ; mark test as entered at least once 


;SUBTEST 1 moves the parameters for the microdiagnostics test through the 
sparameter register 


CALL MVPAR + move the parameters 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


s;SUBTEST 2 invokes the microdiagnostic test 


CALL DOMIC 


ESCAPE TST 
10$: ENDSUB 


ENDTST 


SEQ 0063 
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TEST 8: RAM ADDRESSING TEST 


2520 011204 
011204 
011210 


2522 011216 
2523 011222 


2528 011226 
2529 011230 
2530 011234 
2531 011236 
2532 011242 


2536 011244 
2537 011246 
2538 011252 
2539 011254 
2540 011260 


2542 011262 


—— 


004737 
103002 


004737 
004737 


004737 
103002 


004737 
103002 





007150 


006276 
007054 


006626 


006672 





-SBTTL TEST 9: 


3+ 


; This test invokes the on-board VSV21 68K PROCESSOR test. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given the choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
; control to the host but will continue looping. 


ST. TEST 
CALL 
BCC 


CALL 
CALL 


sSUBTEST 1 moves the paremeters for the microdiagnostics test through the 
sparameter register 


ESCAPE 
108: ENDSUB 


;SUBTEST 2 invokes the microdiagnostic test 


10$: | ENDSUB 
ENDTST 










SEQ 0064 


68K PROCESSOR TEST 


STTEST 
30008$ 
TSTMSK ; get test mask for microdiagnostic 
MRKONCE : mark test as entered at least once 


MVPAR ; move the parameters 
TST 
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TEST 9: 68K PROCESSOR TEST 


2557 011264 
011264 
011270 


2559 011276 
2560 011302 


2565 011306 
2566 011310 
2567 011314 
2568 011316 
2569 011322 


2573 011324 
2574 011326 
2575 011332 
2576 011334 
2577 011340 


2579 011342 


-— 


004737 
103002 


004737 
004737 


004737 
103002 


004737 
103002 


007150 


006276 
007054 


006626 


006672 


.SBTTL TEST 10: INTERNAL EXCEPTIONS TEST 


3+¢ 


; This test invokes the on-board INTERNAL EXCEPTIONS test. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given the choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
; control to the host but will continue looping. 


sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
sperameter register 


10$: 
;SUBTEST 2 invokes the microdiagnostic test 


10$: 













SEQ 0065 


ST. TEST 
CALL STTEST 
BCC 30009$ 


CALL TSTMSK 3; get test mask for microdiagnostic 
CALL MRKONCE ; mark test as entered at least once 


NSUB 
CALL MVPAR ; move the parameters 
BCC 10$ 
ESCAPE TST 
ENDSUB 


ESCAPE TST 
ENDSUB 


ENDTST 
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SEQ 0066 
TEST 10: INTERNAL EXCEPTIONS TEST 

2581 
2582 -SBTTL TEST 11: ACRCT INTERNAL TEST 
2583 
2584 
2585 pee 
2586 : This test invokes the on-board ACRCT INTERNAL test. 
2587 3; If the HOE flag is specified the VSV21 will halt on error. 
2588 ; If the LOE flag is specified the operator will be given the choice on the 
2589 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2590 ; selects yes the test may hang indefinitely as the on board will not return 
2591 3 control to the host but will continue looping. 
2592 s-- 
2593 
2594 011344 ST. TEST 

011344 004737 007150 CALL STTEST 
enon 011350 103002 BCC 30010$ 
2596 011356 004737 006276 CALL TSTMSK + get test mask for microdiagnostic 
iad 011362 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2599 sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
2606 sparameter register 
2601 
2602 011366 BGNSUB 
2603 011370 004737 006626 CALL MVPAR ; move the parameters 
2604 011374 103002 BCC 10$ 
2605 011376 ESCAPE TST 
2606 011402 10$: ENDSUB 
2607 
ee sSUBTEST 2 invokes the microdiagnostic test 
60 
2610 011404 BGNSUB 
2611 011406 004737 006672 CALL DOMIC 
2612 011412 103002 BCC 10$ 
2613 011414 ESCAPE TST 
2614 011420 10$: ENDSUB 
2615 
2616 011422 ENDTST 











- Ce ee ee ee ee nS SS 
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TEST 11: ACRCT INTERNAL TEST 


2618 

2619 -SBTTL TEST 12: ACRCT EXTERNAL TEST 

2620 

2621 

2622 zee 

2623 This test invokes the on-board VSV21 ACRCT EXTERNAL test. 


SEQ 0067 


2624 s If the HOE flag is specified the VSV21 will halt on error. 
2625 ; If the LOE flag is specified the operator will be given the choice on the 
2626 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2627 ; selects yes the test may hang indefinitely as the on board will not return 
a ; control to the host but will continue looping. 
6 s-- 
2630 
2631 011424 ov. teat 
011424 004737 007150 CALL STTEST 
ose 011430 103002 BCC 30011$ 
2633 011436 004737 006276 CALL TSTMSK + get test mask for microdiagnostic 
oe 011442 004737 007054 CALL MRKONCE + mark test as entered at least once 
6 
2636 sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
2637 sparameter register 
2638 
2639 011446 BGNSUB 
2640 011450 004737 006626 CALL MVPAR ; move the parameters 
2641 011454 103002 BCC 10$ 
2642 011456 ESCAPE TST 
2643 011462 10S: ENDSUB 
2644 
2645 sSUBTEST 2 invokes the microdiagnostic test 
2646 
2647 011464 BGNSUB 
2648 011466 004737 006672 CALL DOMIC 
2649 011472 103002 BCC 10$ 
2650 011474 ESCAPE TST 
2651 011500 10$: ENDSUB 
2652 
2653 011502 ENDTST 











me 
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TEST 12: ACRCT EXTERNAL TEST 


2655, 


2666 
2667 


2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 


021504 
011504 
011510 


011516 
011522 


011526 


011532 
011534 
011540 
011542 
011546 


011550 
011552 
011556 
011560 
011564 


011566 


011572 
011574 
011600 
011602 
011606 


011610 
011612 


004737 
103002 


004737 
004737 


005037 


004737 
103002 


004737 
103002 


005237 


004737 
103002 


004737 


007150 


006276 
007054 


002226 


006626 


006672 


002226 


006626 


006672 





SEQ 0068 


-SBTTL TEST 13: DUART SASIC TEST 


3°? 

; This test invokes the on-board VSV21 DUART BASIC test on ports 0-3. 

; If the HOE flag is specified the VSV21 will halt on error. 

; If the LOE flag is specified the operator will be given .he choice on the 
; first pass of whether he wishes the on-board tests to loop on error. If he 
; selects yes the test may hang indefinitely as the on board will not return 
; control to the host but will continue looping. 

; 


ST. TEST 
CALL STTEST 
BCC 30012$ 


CALL TSTMSK + get test mask for microdiagnostic 

CALL MRKONCE + mark test as entered at least once 
sFIRST PORT SP Sssrsssssssssesssssssssessesssesssesrsssesseese2252ssese222eeee 

CLR PBLOC+4 ; get port 0 into parameter block 


sSUBTEST 1 moves the parameters for the microdiagnostics test through the 
sparameter register 


BGNSUB 
CALL MVPAR + move the parameters 
BCC 10$ 
ESCAPE TST 
10$: ENDSUB 


sSUBTEST 2 invokes the microdiagnostic test 


CALL DOMIC 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


s;SECOND PORT SSS PS SS Ss se ssssesssssesseessssssssssssssssssssseesseeeeseeeeeee2e=e=5 
INC PBLOC+4 + get next port into parameter block 
sSUBTEST 3 moves the parameters for the microdiagnostics test through the 


sparameter register 


CALL MVPAR + move the parameters i 

BCC 10$ ‘ 

ESCAPE TST 
10$: ENDSUB 


sSUBTEST 4 invokes the microdiagnostic test 


BGNSUB 
CALL DOMIC 








- SS SS SS SSS sss SSS 
HARDWARE TESTS MACRO YO5S.02 Friday 02-Aug-85 15:18 Page 41-1 


SEQ 0069 
TEST 13: DUART BASIC TEST 
2710 011616 103002 BCC 10$ 
2711 011620 ESCAPE TST 
2712 011624 10$: ENDSUB 
2713 
2714 3; THIRD PORT SPSPSsse esses ssessesssssesssssssessseesseeseseeeeesseeeeee22e2222ese5 
2715 
ih 011626 005237 002226 INC PBLOC+4 + get next port into parameter block 
7 
2718 sSUBTEST 5 moves the parameters for the microdiagnostics test through the 
2719 sparameter register 
2720 
2721 011632 BGNSUB 
2722 011634 004737 006626 CALL MVPAR + move the parameters 
2723 011640 103002 BCC 10$ 
2724 011642 ESCAPE TST 
2725 011646 10$: ENDSUB 
2726 
orae sSUBTEST 6 invokes the microdiagnostic test 
2729 011650 BGNSUB 
2730 011652 004737 006672 CALL DOMIC 
2731 011656 103002 BCC 10$ 
2732 011660 ESCAPE TST 
2733 011664 10$: ENDSUB 
2734 
2735 ;FOURTH PORT SSSSS SS SPSS Ss ss ssessssssssssssssssseesssssesssesseessesseseeee2eeee= 
2736 
Led 011666 005237 002226 INC PBLOC+4 s get next port into parameter block 
2739 ;SUBTEST 7 moves the parameters for the microdiagnostics test through the 
2740 sparameter register 
2741 
2742 011672 BGNSUB 
2743 011674 004737 006626 CALL MVPAR ; move the parameters 
2744 011700 103002 BCC 10$ 
2745 011702 ESCAPE TST 
2746 011706 10$: ENDSUB 
2747 
Aes sSUBTEST 8 invokes the microdiagnostic test 
2749 
2750 011710 BGNSUB 
2751 011712 004737 006672 CALL DOMIC 
2752 011716 103002 BCC 10$ 
2753 011720 ESCAPE TST 
2754 011724 10$: ENDSUB 
2755 
2756 
2757 011726 ENDTST 
& me RR RSE A 








LO rrr cr crete rr ere 





ee 
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TEST 13: DUART BASIC TEST 


2759 

2760 -SBTTL TEST 14: DUART FULL TEST 

2761 

2762 

2763 see 

2764 This test invokes the on-board VSV21 DUART FULL test on ports 0-3. 





-_- 


SEQ 0070 


2765 ; If the HOE flag is specified the VSV21 will halt on error. 
2766 ; If the LOE flag is specified the operator will be given the choice on the 
2767 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2768 ; selects yes the test may hang indefinitely as the on board will not return 
ores ; control to the host but will continue looping. 
2771 
2772 011730 ST.TEST 
011730 004737 007150 CALL STTEST 

errs 011734 103002 BCC 30013$ 
2774 011742 004737 006276 CALL TSTMSK + get test mask for microdiagnostic 
Brie 011746 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2776 
2777 sFIRST PORT SSSSSS SS SS SS Ss Sssessssssssessssssssssseesssessssssese2eeeeeee2e2eeeee5 
2778 
cree 011752 005037 002226 CLR PBLOC+4 ; get port 0 into parameter block 
2 
2781 ;SUBTEST 1 moves the parameters for the microdiagnostics test through the 
2782 sparameter register 
2783 
2784 011756 BGNSUB 
2785 011760 004737 006626 CALL MVPAR + move the parameters 
2786 011764 103002 , we 10$ 
2787 011766 . ESCAPE TST 
2788 011772 10$: ENDSUB 
2789 
aeae sSUBTEST 2 invokes the microdiagnostic test 
2791 
2792 011774 BGNSUB 
2793 011776 004737 006672 CALL DOMIC 
2794 012002 103002 BCC 10$ 
2795 012004 ESCAPE TST 
2796 012010 10$: ENDSUB 
2797 
2798 ; SECOND PORT SSS SS SSS sess ssssssessessessssssessssssssssssssseseseeeeseeese2e2e2eee- 
2799 
coer 012012 005237 002226 INC PBLOC+4 + get next port into parameter block 

1 
2802 sSUBTEST 3 moves the parameters for the microdiagnostics test through the 
2803 sparameter register 
2804 
2805 012016 BGNSUB 
2806 012020 004737 006626 CALL MVPAR + move the parameters 
2807 012024 103002 BCC 10$ 
2808 012026 ESCAPE TST 
2809 012032 10$: ENDSUB 
2810 
aore sSUBTEST 4 invokes the microdiagnostic test 

1 
2813 012034 BGNSUB 











-- 


HARDWARE TESTS 
TEST 14: DUART 


2814 012036 
2815 012042 


0 
2821 012052 


2826 012056 
2827 012060 
2828 012064 
2829 012066 
2830 012072 


2834 012074 
2835 012076 
2836 012102 
2837 012104 
2838 012110 


2842 012112 


2847 012116 
2848 012120 
2849 012124 
2850 012126 
2851 012132 


2855 012134 
2856 012136 
2857 012142 
2858 012144 
2859 012150 


2862 012152 


en (eT a ene Se enn en 1 ee | 
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FULL TEST 


004737 006672 


103002 


005237 


004737 
103002 


004737 
103002 


005237 


004737 
103002 


004737 
103002 


002226 


006626 


006672 


002226 


006626 


006672 











SEQ 0071 
CALL DOMIC 
BCC 10$ 
.ESCAPE TST 


10$: ENDSUB 


; THIRD PORT ss2ss2eeeseeeeseesssseseesesseeseesessessssseseees22e22222222222- 


INC PBLOC+4 ; get next port into parameter block 


sSUBTEST 5 moves the parameters for the microdiagnostics test through the 
;parameter register 


BGNSUB 

CALL MVPAR + move the parameters 

BCC 10$ 

ESCAPE TST —_ 
10$: ENDSUB 


sSUBTEST 6 invokes the microdiagnostic test 


BGNSUB 

CALL DOMIC 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


sFOURTH PORT =222=22s222ss2s2s2ss2s2eseeseesse2esee52255222525e25sesSes2e2e22= 
INC PBLOC+4 + get next port into parameter block 


;SUBTEST 7 moves the parameters for the microdiagnostics test through the 
s;parameter register 


BGNSUB 

CALL MVPAR ; move the parameters 

BCC 10$ 

ESCAPE TST 
10$: ENDSUB 


;SUBTEST 8 invokes the microdiagnostic test 
CALL DOMIC 
ESCAPE TST 

10$: ENDSUB 


ENDTST 
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TEST 14: DUART FULL TEST 


SEQ 0072 


2865 -SBTTL TEST 15: PERIPHERAL CONFIDENCE TEST 
2866 

2867 

2868 i++ 


2869 ; This test allows the operator to select a port for either input or output. 
23870 ; If he selects output an ASCII string is written to that port. 
2871 ; If he selects input the first 16 characters read from that port are displayed 
2872 ; in octal on the console running the tests. 
2873 ; If the HOE flag is specified the VSV21 will halt on error. 
2874 ; If the LOE flag is specified the operator will be given the choice on the 
2875 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2876 ; selects yes the test may hang indefinitely as the on board will not return 
odd ; control to the host but will continue looping. 
2878 -- 
2879 
2880 000010 TISRLEN=8. 
2881 
2882 012154 ST. TEST 
012154 004737 007150 CALL STTEST 
— 012160 103002 BCC 30014$ 
oes 012166 MAN. IGNORE ; ignore test if not manual 
288 
2886 012176 DMA. IGNORE ; ensure DMA enabled 
2887 
need 012220 GMANID 1T15M1,PBLOC+4,D,177777,0,3,NO 3; get port number 
28 
2890 012240 004737 006276 CALL TSTMSK ; get test mask for microdiagnostic 
2891 012244 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2892 
2893 012250 PRINTF #T1i5M2 
2894 012270 GMANIL 1T15M3,T1SINP,177777,NO ; get whether input/output device 
2895 012304 005737 013076 TST TISINP ; input device ? 
2896 012310 001007 BNE 30$ ; branch if yes 
2897 012312 052737 000001 002224 BIS #1,PBLOC+2 ; Say normal mode + write 
2898 012320 012737 000056 002230 MOV #<TISWEN-T1ISWBUF >, PBLOC+6 ; put length to be DMA'd 
2899 012326 000406 BR 40$ 
2900 012330 052737 000002 002224 303: BIS #2,PBLOC+2 ; say normal mode + read 
2901 012336 012737 000020 002230 MOV #<TISRLEN*2> ,PBLOC+6 ; put length to be DMA'd 
2902 
2903 ;SUBTEST 1 DMAs test data into the VSV21 for an output device 
2904 012344 40$: 
2905 012344 BGNSUB 
2906 012346 005737 013076 TST TISINP ; input device ? 
2907 012352 001013 BNE 10$ ; branch if yes 
2908 012354 DO.WRAMS #T ISWBUF , #<TISWEN-TLISWBUF > ; DMA the data 
012354 012737 013020 002622 MOV #T1SWBUF , COMBUF +4 
012362 012737 000056 002624 MOV #< T1ISWEN-T1ISWBUF >, COMBUF +6 
012370 004737 006066 CALL WRAMS 
2909 012374 103002 BCC 10$ 
2910 012376 ESCAPE TST ; exit if DMA fails 
4443 012402 10$: ENDSUB 
1 
2913 sSUBTEST 2 moves the parameters for the microdiagnostics test through the 
ee ;parameter register 
1 
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SEQ 0073 
TEST 15: PERIPHERAL CONFIDENCE TEST 
2916 012404 BGNSUB 
2917 012406 004737 006626 CALL MVPAR + move the parameters 
2918 012412 103002 BCC 10$ 
2919 012414 ESCAPE TST 
2920 012420 10$: ENDSUB 
2921 
aoes sSUBTEST 3 invokes the microdiagnostic test 
2924 012422 BGNSUB 
2925 012424 004737 006672 CALL DOMIC 
2926 012430 103002 BCC 10$ 
2927 012432 ESCAPE TST 
2928 012436 10$: ENDSUB 
2929 
toy ;SUBTEST 4 DMAs the data back from the VSV21 for an input device 
2932 012440 BGNSUB 
2933 012442 005737 013076 TST TLISINP ; input device ? 
2934 012446 001441 BEQ 30$ ; branch if not 
2935 012450 DO.RRAMS #T ISRBUF ,#<TISRLEN«&2> ; DMA the data 
012450 012737 013000 002622 MOV #T1ISRBUF , COMBUF +4 
012456 012737 000020 002624 MOV #<TISRLEN#&2> , COMBUF +6 
012464 004737 006132 CALL RRAMS 
2936 012470 103002 BCC 10$ 
2937 012472 ESCAPE TST ; exit if DMA fails 
2938 012476 10$: PRINTF #T15M4 ; print the data received 
2939 012516 012701 000010 MOV #TISRLEN,R1 3 number to print 
2940 012522 012702 013000 MOV #T1SRBUF ,R2 ; address of buffer 
2941 012526 20$: PRINTF #T15M5,(R2)+ ; print a word 
2942 012550 077112 SOB R1,20$ 3; next one 
2943 012552 30$: ENDSUB 
2944 
2945 012554 EXIT TST 
2946 


2947 012560 120 114 105 T1i5M1: .ASCIZ /PLEASE ENTER PORT NUMBER/ 

2948 012611 045 116 045 TiSM2: .ASCIZ /sNSAIS IT AN INPUT DEVICE 2/ 

2949 012645 120 114 105 T1SM3: .ASCIZ /PLEASE ENTER “YES” FOR INPUT DEVICE OR “NO” FOR OUTPUT DEVICE/ 
2950 012743 045 116 045 T15M4: .ASCIZ /sNSADATA RECEIVED IS : / 

2951 012773 045 117 067 T1ISMS5: .ASCIZ /#07/ 


2952 -EVEN 

2953 013000 TISRBUF : 

2954 013000 -BLKW TISRLEN 

2955 013020 TISWBUF : 

2956 013020 041 100 043 -ASCIZ /!O#$8+E4( )_+1234567890QWERTYUIOP | Oasdfgh jkl;‘/ 

2957 013076 TISWEN: 

2958 -EVEN 

be 013076 000000 TISINP: .WORD 0 ; <2>0 for i/p device , 0 for o/p device 
2961 013100 ENDTST 











—- 





HARDWARE TESTS MACRO YO5S.02 Friday 02-Aug-85 15:18 Page 44 


TEST 15: PERIPHERAL CONFIDENCE TEST 


















SEQ 0074 


2963 
2964 -SBTTL TEST 16: INTERNAL LOOPBACK TEST 
2965 
2966 
2967 i++ 
2968 ; This test causes the on-board software to perform an INTERNAL LOOPRACK 
2969 ; test on ports 0-3. 
2970 ; If the HOE flag is specified the VSV21 will halt on error. 
2971 ; If the LOE flag is specified the operator will be given the choice on the 
2972 ; first pass of whether he wishes the on-board tests to loop on error. If he 
2973 ; selects yes the test may hang indefinitely as the on board will not return 
core ; control to the host but will continue looping. 
oe 

2976 
2977 013102 ST.TEST 

013102 004737 007150 CALL STTEST 

013106 103002 BCC 30017$ 
2978 
ae 013114 DMA. IGNORE ; ensure DMA enabled 
2981 013136 004737 006276 CALL TSTMSK + get test mask for microdiagnostic 
Seek 013142 004737 007054 CALL MRKONCE ; mark test as entered at least once 
2984 013146 052737 000013 002224 BIS #13,PBLOC+2 ; say local loop + read + write 
bea 013154 012737 000054 002230 MOV #DMALEN, PBLOC+6 ; put length to be DMA'd 
bed s;SUBTEST 1 DMAs test data into the VSV21 

8 

2989 013162 BGNSUB 
2990 013164 DO.WRAMS ; DMA the data 

013164 012737 002762 002622 MOV #DMAOBUF , COMBUF +4 

013172 012737 000054 002624 MOV #DMALEN, COMBUF +6 

013200 004737 006066 CALL WRAMS 
2991 013204 103002 BCC 10$ 
2992 013206 ESCAPE TST ; exit if DMA fails 
2993 013212 10$: ENDSUB 
2994 J 
2995 ;FIRST PORT SSSS ss ses ss sesessessessesssssssssssseesssssesssssesssessessseseesesee2e25 
2996 
ted 013214 005037 002226 CLR PBLOC+4 ; get port 0 into parameter block 
2 
2999 sSUBTEST 2 moves the parameters for the microdiagnostics test through the 
3000 sparameter register 
3001 
3002 013220 BGNSUB 
3003 013222 004737 006626 CALL MVPAR + move the parameters 
3004 013226 103002 BCC 10$ 
3005 013230 ESCAPE TST 
3006 013234 10$: ENDSUB 
3007 
pooe sSUBTEST 3 invokes the microdiagnostic test 

9 

3010 013236 BGNSUB 
3011 013240 004737 006672 CALL DOMIC 
3012 013244 103002 BCC 10$ 
3013 013246 ESCAPE TST 
3014 013252 10$: ENDSUB 








rc 





—— 
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TEST 16: INTERNAL LOOPBACK TEST 
3015 
3016 
3017 
3018 
3019 


013254 
013256 
013256 
013264 
013272 
013276 
013300 
013304 


003036 
000054 
006132 


012737 
012737 
004737 
3020 103002 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 


013306 
013310 
013314 
013316 
013322 


004737 006212 


103002 


013324 005237 002226 


013330 
013332 
013336 
013340 
013344 


004737 
103002 


006626 


013346 
013350 
013354 
013356 
013362 


004737 006672 


103002 


013364 
013366 
013366 
013374 
013402 
013406 
013410 
013414 


012737 
012737 
004737 
103002 


003036 
000054 
006132 


013416 
013420 
013424 


004737 
103002 


006212 


002622 
002624 


002622 
002624 


SEQ 0075 


;SUBTEST 4 DMAs the data back from the VSV21 


; DMA the data 
#DMAIBUF , COMBUF +4 
#DMALEN, COMBUF +6 
RRAMS 
10$ 
ESCAPE TST 
10$: ENDSUB 


;SUBTEST 5 Compares data written and read 


; exit if DMA fails 


CRAMS 
10$ 
ESCAPE TST 
ENDSUB 


; DMA the data 


; exit if DMA fails 
10$: 


; SECOND PORT =2222s2eeeeeseeeseeseeseesesesseessesssssessseeseseeeeseseee5eE55 


INC PBLOC+4 ; get next port into parameter block 
s;SUBTEST 6 moves the parameters for the microdiagnostics test through the 


;parameter register 


MVPAR 
10$ 

ESCAPE TST 
10$: ENDSUB 


;SUBTEST 7 invokes the microdiagnostic test 


BGNSUB 
CALL 
BCC 
ESCAPE 
10$: ENDSUB 


;SUBTEST 8 DMAs the data back from the VSV2i 


; move the parameters 


DOMIC 
10$ 
TST 


; DMA the data 
#DMAIBUF , COMBUF +4 
#DMALEN, COMBUF +6 
RRAMS 
BCC 10$ 
ESCAPE TST : 
10$: ENDSUB 


;SUBTEST 9 Compares data written and read 
BGNSUB 


CALL 
BCC 


exit if DMA fails 


CRAMS 
10$ 


; DMA the data 
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TEST 16: INTERNAL LOOPBACK TEST 


SEQ 0076 


3066 013426 ESCAPE TST ; exit if DMA fails 
3067 013432 10$: ENDSUB 
3068 
3069 ; THIRD PORT s22s2e22 tesesecsesssesssesssessesseessesesesssssssesseseesee2e222 
3070 
+4, 013434 005237 002276 INC PBLOC+4 ; get next port into parameter block 
3073 sSUBTEST 10 moves the perameters for the microdiagnostics test through the 
3074 sperameter register 
3075 
3076 013440 BGNSUB 
3077 013442 004737 006626 CALL MVPAR + move the parameters 
3078 013446 103002 BCC 10$ 
3079 013450 ESCAPE TST 
3080 013454 10$: ENDSUB 
3081 
tee s;SUBTEST 11 invokes the microdiagnostic test 
3084 013456 BGNSUB 
3085 013460 004737 006672 CALL DOMIC 
3086 013464 103002 BCC 10$ 
3087 013466 ESCAPE TST 
+404 013472 10$: ENDSUB 
reer ;SUBTEST 12 DMAs the data back from the VSV21 
1 

3092 013474 BGNSUB 
3093 013476 DO.RRAMS ; DMA the date 

013476 012737 003036 002622 MOV #DMAIBUF , COMBUF +4 

013504 012737 000054 002624 MOV #DMALEN, COMBUF +6 

013512 004737 006132 CALL RRAMS 
3094 013516 103002 BCC 10$ 
3095 013520 ESCAPE TST ; exit if DMA fails 
3096 013524 10$: ENDSUB 
3097 
coos ;SUBTEST 13 Compares data written and read 
3100 013526 BGNSUB 
3101 013530 004737 006212 CALL CRAMS ; DMA the data 
3102 013534 103002 BCC 10$ 
3103 013536 ESCAPE TST ; exit if DMA fails 
3104 013542 10$: ENDSUB 
3105 
te ;FOURTH PORT s22es2eeeeeseeseeseesesesseseseseesssessssseessesssssssseaneseess 

10 
oe 013544 005237 002226 INC PBLOC+4 + get next port into parameter block 
1 

3110 sSUBTEST 14 moves the parameters for the microdiagnostics test through the 
3111 s;parameter register 
3112 
3113 013550 BGNSUB 
3114 013552 004737 006626 CALL MVPAR ; move the parameters 
3115 013556 103002 BCC 10$ 
3116 013560 ESCAPE TST 
3117 013564 10$: ENDSUB 
3118 
3119 s;SUBTEST 15 invokes the microdiagnostic test 











—_ 





[Cc oseST.?.?..._____::.___~~ 
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TEST 16 


3120 
3121 
3122 
3123 


: INTERNAL LOOPBACK TEST 


013566 
013570 
013574 
013576 
013602 


013604 
013606 
013606 
013614 
013622 
013626 
013630 
013634 


013636 
013640 
013644 
013646 
013652 


013654 


004737 
103002 


012737 
012737 
004737 
103002 


004737 
103002 


006672 


003036 
000054 
006132 


006212 


002622 
002624 


BCC 10$ 
ESCAPE TST 
10$: ENDSUB 


;SUBTEST 16 DMAs the data back from the VSV21 
DO.RRAMS ; DMA the data 


MOV #DMAIBUF , COMBUF +4 
MOV #DMALEN, COMBUF +6 


CALL RRAMS 
BCC 10$ 
ESCAPE TST ; exit if DMA fails 


10$: ENDSUB 
;SUBTEST 17 Compares date written and read 


BGNSUB 

CALL CRAMS ; DMA the date 

BCC 10$ 

ESCAPE TST ; exit if DMA fails 


10$: ENDSUB 


ENDTST 


SEQ 0077 
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TEST 16: INTERNAL LOOPBACK TEST 


-— 


013656 
013656 
013662 


013670 


013712 
013716 


013722 
013730 


013736 
013740 
013740 
013746 
013754 
013760 
013762 
013766 


013770 


013774 
013776 
014002 
014004 
014010 





004737 
103002 


004737 
004737 


052737 
012737 


012737 
012737 
004737 
103002 


005037 


004737 
103002 


004737 
103002 


007150 


006276 
007054 


000003 
000054 


002762 
000054 
006066 


002226 


006626 


006672 





002224 
002230 


002622 
002624 


-SBTTL TEST 17: EXTERNAL I/0 LOOPBACK TEST 


so 


@:. 
a 


:; This test causes the on-board software to perform an EXTERNAL LOOPBACK 
; test on ports 0-3. 
; If the HOE flag is specified the VSV21 will halt on error. 


= o: «es of oe 


10$: 


If the LOE flag is specified the operator will be given the choice on the 
first pass of whether he wishes the on-board tests to loop on error. If he 
selects yes the test may hang indefinitely as the on beore will not return 
control to the host but will continue looping. 


ensure DMA enabled 


get test mask for microdiagnostic 
mark test as entered at least once 


; say normal mode + read + write 
; put length to be DMA'd 


DMA the data 


exit if DMA fails 


sFIRST PORT seessseessassssesasesssssesssesseesessssesssesssssassssssasassass 


ST. TEST 
CALL STTEST 
BCE 30019$ 
DMA. IGNORE ; 
CALL TSTMSK : 
CALL MRKONCE i 
BIS #3 ,PBLOC+2 
MOV #DMALEN, PBLOC+6 

sSUBTEST 1 DMAs test date into the VSV21 
BGNSUB 
DO.WRAMS ; 
MOV @OMAOBUF , COMBUF +4 
MOV @DMALEN, COMBUF +6 
CALL WRAMS 
BCC 10$ 
ESCAPE TST : 
ENDSUB 
CLR PBLOC+4 ; 


get port 0 into parameter block 


sSUBTEST 2 moves the parameters for the microdiagnostics test through the 
spearameter register 


10$: 
;SUBTEST 3 invokes the microdiagnostic test 


10$: 


BGNSUB 

CALL MVPAR ; 
BCC 10$ 

ESCAPE TST 

ENDSUB 


DOMIC 


ESCAPE TST 
ENOSUB 


move the perameters 















SEQ 0078 











HARDWARE TESTS MACRO YOS.02 Friday 02-Aug-85 15:18 Page 45-1 


SEQ 0079 
TEST 17: EXTERNAL 1/0 LOOPSACK TEST 
3198 
{h44 sSUBTEST 4 DMAs the data back from the VSV21 
c 
3201 014030 BGNSUB 
3202 014032 00.RRAMS ; DMA the data 
014032 012737 003036 002622 MOV @DMAIBUF , COMBUF +4 
014040 012737 000054 002624 MOV @DMALEN, COMBUF +6 
014046 004737 006132 CALL RRAMS 
3203 014052 103002 BCC 10$ 
3204 014054 ESCAPE TST ; exit if DMA fails 
3205 024060 10$: ENDSUB 
3206 
red ;SUBTEST 5S Compares data written and read 
3209 014062 BGNSUB 
3210 014064 004737 006212 CALL CRAMS ; DMA the data 
3211 014070 103002 BCC 10$ 
3212 014072 ESCAPE TST ; exit if DMA fails 
3213 014076 10$: ENDSUB 
3214 
2215 3; SECOND PORT Ssesssssssessssssssssssesssesssssssrsesessssesessssesssseesee2e22e2222e2= 
3216 
oH! 014100 005237 002226 INC PBLOC+4 + get next port into parameter block 
3219 sSUBTEST 6 moves the parameters for the microdiagnostics test through the 
3220 sparameter register 
3221 
3222 014104 BGNSUB 
3223 014106 004737 006626 CALL MVPAR ; move the parameters 
3224 014112 103002 BCC 10$ 
3225 014114 ESCAPE TST 
3226 014120 10$: ENDSUB 
3227 
ees ;SUBTEST 7 invokes the microdiagnostic test 
229 
3230 014122 BGNSUB 
3231 014124 004737 006672 CALL DOMIC 
3232 014130 103002 BCC 19$ 
3233 014132 ESCAPE TST 
3234 014136 10S: ENDSUB 
3235 
34 ;SUBTEST 8 DMAs the data back from the VSV21 
2 , 
3238 914140 BGNSUB 
3239 014142 DO.RRAMS ; DMA the data 
014142 012737 003036 002622 MOV #DMAIBUF , COMBUF +4 
014150 012737 000054 002624 MOV #DMALEN, COMBUF +6 
014156 004737 006132 CALL RRAMS 
3240 014162 103002 BCC 10$ 
3241 014164 ESCAPE TST ; exit if DMA fails 
3242 014170 10$: ENDSUB 
3243 
Po ;SUBTEST 9 Compares data written and read 
3246 014172 BGNSUB 
3247 014174 004737 006212 CALL CRAMS ; DMA the data 
3248 014200 103092 Bcc 10$ 





Ee ee a ae ee 
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SEQ 0080 
TEST i7: EXTERNAL I/0 LOOPBACK TEST 
3242 yl4202 ESCAPE TST ; exit if DMA fails 
3250 014206 108; ENDSUB 
3251 
3252 3 THIRD PORT SPSS Str sesssesssssssresssssssszessessasesssesesesessseasesea222222225 
3253 
ie 014210 005237 002226 INC PBLOC+4 + get next port into parameter block 
3256 sSUBTEST 10 moves the parameters for the microdiagnostics test through the 
3257 sparameter register 
3258 
3259 014214 BGNSUB 
3260 014216 004737 006626 CALL MVPAR + move the parameters 
3261 024222 103002 BCC 10$ 
3262 014224 ESCAPE TST 
3263 014230 108: ENDSUB 
3264 
oy sSUBTEST 11 invokes the microdiagnostic test 
266 
3267 014232 BGNSUB 
3268 014234 004737 006672 CALL DOMIC 
3269 014240 103002 BCC 10$ 
3270 014242 ESCAPE TST 
3271 014246 108: ENDSUB 
3272 
hh sSUBTEST 12 DMAs the data back from the VSV21 
2 
3275 014250 BGNSUB 
3276 014252 DO.RRAMS ; DMA the data 
014252 012737 003036 002622 MOV #DMAIBUF , COMBUF +4 
014260 012737 000054 002624 MOV #DMALEN, COMBUF +6 
014266 004737 006132 CALL RRAMS 
3277 014272 103002 BCC 10$ 
3278 014274 ESCAPE TST ; exit if DMA fails 
3279 014300 10$: ENDSUB 
3280 
et ;SUBTEST 13 Compares data written and read 
282 
3283 014302 BGNSUB 
3284 014304 004737 006212 CALL CRAMS ; DMA the data 
3285 014310 103002 BCC 10$ 
3286 014312 ESCAPE TST ; exit if DMA fails 
3287 014316 10$: ENDSUB 
3288 
2289 sFOURTH PORT SSP Ss ssssesssssssessssessssssssrssssssssssssssssssseeseeseeeeeeeeeee 
3290 
cot 014320 005237 002226 INC PBLOC+4 + get next port into parameter block 
2 
3293 sSUBTEST 14 moves the parameters for the microdiagnostics test through the 
3294 sparameter register 
3295 
3296 014324 BGNSUB 
3297 014326 004737 006626 CALL MVPAR ; move the parameters 
3298 014332 103002 BCC 10$ 
3299 014234 ESCAPE TST 
3390 014340 10$: ENDSUB 
3301 
2202 sSUBTEST 15 invokes the microdiagnostic test 
& ————e— 2.0 s::_:. 
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SEQ 0081 
TEST 17: EXTERNAL I/0 LOOPBACK TEST 
3303 
3304 014342 BGNSUB 
3305 014344 004737 006672 CALL DOMIC 
3306 014350 103002 BCC 10$ 
3307 014352 ESCAPE TST 
3308 014356 10$: ENDSUB 
3309 
tay sSUBTEST 16 DMAs the data back from the VSV21 
il 
3312 014360 BGNSUB 
3313 014362 DO.RRAMS ; DMA the data 
014362 012737 003036 002622 MOV #DMAIBUF , COMBUF +4 
014370 012737 000054 002624 MOV #DMALEN, COMBUF +6 
014376 004737 006132 CALL RRAMS 
3314 014402 103002 BCC 10$ 
3315 014404 ESCAPE TST ; exit if DMA fails 
3316 014410 10$: ENDSUB 
3317 
. ;SUBTEST 17 Compares data written and read 
1 
3320 014412 BGNSUB 
3321 014414 004737 006212 CALL CRAMS ; DMA the data 
2322 014420 103002 BCC 10$ 
3323 014422 ESCAPE TST ; exit if DMA fails 
3324 014426 10$: ENDSUB 
3325 
3326 
3327 014430 ENDTST 
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TEST 18: SCREEN TEST 






SEQ 0032 


















3329 -SBTTL TEST 18: SCREEN TEST 
3330 
3331 
3332 i++ 
3333 ; This test displays different screen test pictures as selected by the 
3334 ; operator. If the HOE flag is specified the VSV21 will halt on error. 
3335 ; If the LOE flag is specified the operator will be given the choice on the 
3336 ; first pass of whether he wishes the on-board tests to loop on error. If he 
3337 ; selects yes the test may hang indefinitely as the on board will not return 
ted s control to the host but will continue looping. 
9 i-- 
3340 
3341 024432 ST. TEST 
014432 004737 007150 CALL STTEST 
014436 103002 BCC 30021$ 
3342 
ieee 014444 MAN. IGNORE + ignore test if not manual 
4 014454 DMA. IGNORE ; ensure DMA enabled 
6 
3347 014476 004737 006276 CALL TSTMSK ; get testmask 
tae 014502 004737 007054 CALL MRKONCE ; mark test as entered at least once 
44 ;SUBTEST 1 DMAs the operator requested picture to the VSV21 
2 
3352 014506 BGNSUB 
3353 014510 PRINTF #T18M1 
3354 014530 GMANID 118M2,TEMP1,0,177777,1,4,NO ; get current picture number 
3355 014550 013700 002212 MOV TEMP1,RO ; and save it 
3356 014554 005300 DEC RO 3; get in range 0 - 3 
3357 014556 006300 ASL RO ; get byte offset 
3358 014560 DO.WRAMS PICS(RO),#<PIC2-PIC1> ; write the picture 
014560 016037 014712 002622 MOV PICS(RO),COMBUF +4 
014566 012737 000042 002624 MOV #<PIC2-PIC1>,COMBUF +6 
014574 004737 006066 CALL WRAMS 
3359 014600 103002 BCC 20$ 
3360 014602 ESCAPE TST 
3361 014606 20$: ENDSUB 
3362 
3363 sSUBTEST 2 moves the parameters for the microdiagnostics test through the 
3364 s;paremeter register 
3365 
3366 014610 BGNSUB 
3367 914612 012737 000042 002226 MOV #<PIC2-PIC1>,PBLOC+4 ; third parameter is length of picture 
3368 014620 004737 006626 CALL MVPAR ; move the parameters 
3369 014624 103002 BCC 10$ 
3370 014226 ESCAPE TST ‘ 
3371 01463< 10$: ENDSUB 
3372 
i, s;SUBTEST 3 invokes the microdiagnostic test 
4 
3375 014634 BGNSUB 
3376 014636 004737 006672 CALL DOMIC 
3377 014642 103002 BCC 10$ 
3378 014644 ESCAPE TST 
3379 014650 10$: ENDSUB 
3280 
ke Se 








an 
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SCREEN TEST 


TEST 18: 


3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 





014652 
014672 


014706 


014712 
014722 
014742 
014762 
014764 
025004 
015024 
025026 
015046 
015066 
015070 
015110 
015130 


015132 
015202 
015271 
015361 


015402 


014722 
014001 
000360 
177001 
014001 
000360 
177001 
014001 
000360 
177001 
014001 
000360 
177001 


045 
122 
045 
127 


014764 
000001 
004014 


000001 
004014 


000001 
004014 


000001 
004014 


116 
105 
116 
111 


015026 
177777 
040000 


177777 
040000 


177777 
040000 


177777 
040000 


PRINTF 
GMANIL 


EXIT 


PICS: . WORD 
PIC1: . WORD 
. WORD 
. WORD 
PIC2: . WORD 
- WORD 
. WORD 
PIC3: . WORD 
- WORD 
. WORD 
PIC4: - WORD 
- WORD 
. WORD 


T18M1: .ASCIZ 
T18M2: .ASCIZ 
T18M3: .ASCIZ 
T18M4: .ASCIZ 

-EVEN 


ENDTST 


SEQ 0083 
#T18M3 ; Print message 
T18M4,TEMP1,177777,YES ; and wait. 
TST 
PICi1,PIC2,PIC2,PIC4 


014001 ,000001, 177777 ,004005, 000000 , 004006, 000000 ,004007 

000360 ,004014 , 040000 ,004015, 000000 , 054000, 021042 ,000531 

177001 

014001 ,000001, 177777 ,004005 , 000000 , 004006 , 000000 ,004007 

+ ae aaa etal at 
1 

014001 ,000001, 177777 ,004005,, 000000 , 004006 , 000000 ,004007 

+h jae laa attained atin 

177001 

014001 ,000001, 177777 ,004005 , 000000 , 004006 , 000000 ,004007 

1 i aaa cement aallltate 

177001 


/SNSAPLEASE INPUT PICTURE NUMBER WHERE :/ 
/RED , GREEN , BLUE AND WHITE SCREENS ARE 1,2,3,4 RESP./ 

/SNSAPLEASE ENTER CARRIAGE RETURN WHEN YOU HAVE FINISHED/ 
/WITH THE PICTURE/ 





a 
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SCREEN TEST 


TEST 18: 


3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 


3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 





oe 


015404 
015404 
015410 


015416 


015426 
015432 


015436 
015456 
015472 
015476 
015500 
015504 


015504 
015506 
015512 
015514 
015520 


015522 
015524 
015530 
015532 
015536 


015540 


015542 
015627 


004737 
103002 


004737 
004737 


005737 
001002 


004737 
103002 


004737 
103002 


045 
104 


007150 


006276 
007054 


002212 


006626 


006672 


116 
117 


as APRA WArF AM 


SEQ 0084 


-SBTTL TEST 19: NVRAM READ/WRITE TEST 


++ 


This test tests NVRAM read/write. On each pass the operator will be asked if 
; he — to continue as NVRAM has a limited life in terms of read/write 

cycles. 

If the HOE flag is specified the VSV21 will halt on error. 


; first pass of whether he wishes the on-board tests to loop on error. If he 
selects yes the test may hang indefinitely as the on board will not return 
control to the host but will continue looping. 


20S: 


; 
; If the LOE flag is specified the operator will be given the choice on the 


ST. TEST 

CALL STTEST 

BCC 30024$ 

MAN. IGNORE ; ignore test if not manual 

CALL Toran 33 ; get test mask for microdiagnostic 
CALL MRKONCE ; mark test as entered at least once 
PRINTF #T20M1 ; Ask if operator 

GMANIL T20M2, TEMP1,177777,NO0 ; wants to do test. 

TST TEMP1 ; operator want to do test ? 

BNE 20$ ; branch if yes 

EXIT TST ; else exit if no 


;SUBTEST 1 moves the parameters for the microdiagnostics test through the 
sparameter register 


10$: 


BGNSUB 
CALL 
BCC 
ESCAPE 
ENDSUB 


MVPAR + move the parameters 
10$ 
TST 


;SUBTEST 2 invokes the microdiagnostic test 


10$: 


045 T20M1: 
040 T20M2: 


ENDTST 


-ASCIZ 
-ASCIZ 


-EVEN 


/SNSAx% WARNING ** WRITING TO NVRAM REDUCES IT‘S LIFE/ 
/D0 YOU STILL WANT TO DO THIS TEST ?/ 
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TEST 19: NVRAM READ/WRITE TEST 






SEQ 0085 












3462 
3463 -SBTTL TEST 20: ENABLE INTERRUPTS TEST 
3464 
3465 
3466 i+? 
3467 ; This test verifies that interrupts are received by the host when interrupts 
3468 ; are enabled. 
3469 pe 
3470 
3471 015674 ST. TEST 
015674 004737 007150 CALL STTEST 
sere 015700 103002 BCC 30026$ 
3473 015706 SETVEC CURVEC,#INTVEC, #240 ; enable the interrupt service routine 
3474 3 3 and give it priority #5 
oth 015734 005037 002240 CLR INTFLG + say no interrupts have been received 
he sSUBTEST 1 enables interrupts and expects to get an interrupt while doing it 
3479 015740 BGNSUB \ 
3480 015742 DO. COMMAND PI.IEN,10$ ; enable interrupts 
015742 012737 001403 002614 MOV #PI.IEN, COMAND 
015750 012737 002734 002216 MOV #1500. ,POLCNT ~ E 8 
015756 004737 004572 CALL DOCOM ~~ 
015762 103001 BCC 10$ 
3481 015764 000437 BR 20$ ; branch on error 
3482 015766 012701 002734 10$: MOV #1500. ,R1 ; count to poll 
3483 015772 005737 002240 15$: TST INTFLG ; have we received an interrupt ? 
3484 015776 001032 BNE 20$ ; branch if yes ; 
3485 016000 DELAY 10. ; delay 10 units a 
3486 016030 077120 SoB R1,15$ 3; again 5 
3487 016032 ERR.FILLIN 15.,ERR15 3; time out 
016032 012737 000002 002202 MOV #2,ERRTYP ; assume hard error for now 
016040 012737 000017 002204 MOV #15. ,ERRNBR ; get error 15. 
016046 012737 004177 002206 MOV #ERR15 ,ERRMSG + get error ERR1S 
016054 012737 004302 002210 MOV #ERRCODE,ERRBLK ; get error routine 
3488 016062 ERROR 
3489 016064 20$: ENDSUB 
3490 
pee: ;SUBTEST 2 disables interrupts 
492 
3493 016066 BGNSUB 
3494 016070 DO .COMMAND PI.IDS,10$ ; disable interrupts 
016070 012737 001400 002614 MOV #PI.IDS,COMAND 
016076 012737 002734 002216 MOV #1500. ,POLCNT 
016104 004737 004572 CALL DOCOM 
016110 103000 BCC 10$ 
3495 016112 10$: CLRVEC CURVEC ; disable the interrupt service routine 
3496 016120 ENDSUB 
3497 
3498 016122 ENDTST 
3499 
3500 sInterrupt service routine 
3501 
3502 01614 BGNSRV INTVEC 
3503 016124 012737 000001 002240 MOV #1,INTFLG ; say received interrupt 
3504 016132 ENDSRV 
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TEST 20: ENABLE INTERRUPTS TEST 


SEQ 0086 


3506 
odd - TITLE PARAMETER CODING 
8 

+94 -SBTTL HARDWARE PARAMETER CODING SECTION 

1 
3511 
3512 3++ 
3513 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
3514 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3515 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
3516 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
3517 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
3518 ; WITH THE OPERATOR. 
3519 [== 
3520 
core 016134 BGNHRD 
cos 016136 GPRMA DEVADD,0,0,160000,177776,YES 

24 
cana 016146 GPRMA VECADD,2,0,0,776,YES 
3527 016156 ENDHRD 
3528 


3529 016156 104 105 126 DEVADD: .ASCIZ /DEVICE ADDRESS/ 
3530 016175 126 105 103 VECADD: .ASCIZ /VECTOR ADDRESS/ 


3531 

3532 -EVEN 

3533 

3534 

3535 016214 $PATCH:: 

3536 016214 -BLKW 50. 

3537 

3538 016360 LASTAD 
016364 L$LAST:: 

3539 016364 ENDMOD 

2. | __l 








PARAMETER CODING 


016364 
016364 
016370 
016372 
016374 
016374 
016400 
016402 
016404 
016404 
016410 
016412 
016414 
016414 
016420 
016422 
016424 
016424 


172010 
000320 


172020 
000324 


172030 
000330 


172040 
000334 


000001 








- END 
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HARDWARE PARAMETER CODING SECTION 


BGNSETUP 4 
BGNP TAB 

-WORD 172010 
-WORD 320 
ENOPTAB 
BGNPTAB 

«WORD 172020 
-WORD 324 
ENDPTAB 

BGNP TAB 

-WORD 172030 
-WORD 330 
ENDPTAB 
BGNPTAB 

-WORD 172040 
-WORD 334 
ENDPTAB 
ENDSETUP 


SEQ 0087 
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SEQ 0088 

Symbol table 

ABORT 007510 CSERDF= 000055 DMAOBU 002762 G GETST2 005462 G L$CcO 002032 G 
ADR = 000020 G CSERHR= 000056 DMASET= 000002 G GSCNTO= 000200 L$DEPO 002011 G 
ASSEMB= 000010 CSERRO= 000060 DOCOM 004572 G G$DELM= 000372 L$DESC 004260 G 
BITS 002244 G CSERSF= 000054 DOMIC 006672 G G$DISP= 000003 L$DESP 002076 G 
BITO = 000001 G CSERSO= 000057 EF .CON= 000036 G GSEXCP= 000400 L$DEVP 002060 G 
BITOO = 000001 G CSESCA= 000010 EF .NEW= 000035 G G$HILI= 000002 L$DISP 002124 G 
BITO1 = 000002 G CSESEG= 000005 EF .PWR= 000034 G G$LOLI= 000001 L$OLY 002116 G 
BITO2 = 000004 G CSESUB= 000003 EF .RES= 000037 G G$NO = 000000 L$DTP 002040 G 
BITO3 = 000010 G CSETST= 000001 EF .STA= 000040 G G$OFFS= 000400 L$DTYP 002034 G 
BITO4 = 000020 G CSEXIT= 000032 END 007504 G$OFSI= 000376 L$OUT 002072 G 
BITOS = 000040 G CSFREQ= 000101 ERRBLK 002210 G G$PRMA= 000001 L$OVTY 004251 G 
BITO6 = 000100 G CS$FRME= 000100 ERRCOD 004302 G G$PRMD= 000002 LSEF 002052 G 
BITO7 = 000200 G C$GETB= 000026 ERRMSG 002206 G G$PRML= 000000 LSENVI 002044 G 
BITO8 = 000400 G C$GETW=. 000027 ERRNBR 002204 G G$RADA= 000140 LSERRT 002202 G 
BITO9 = 001000 G C$GMAN= 000043 ERRTYP 002202 G G$RADB= 000000 LSETP 002102 G 
BIT1 = 000002 G CSGPHR= 000042 ERR1 003166 G G$RADD= 000040 L$EXP1 002046 G 
BIT1O = 002000 G C$GPRI= 000040 ERR10 003720 G G$RADL= 000120 LSEXP4 002064 G 
BIT11 = 004000 G CSINIT= 000011 ERR11 003753 G G$RADO= 000020 L$EXPS 002066 G 
BIT12 = 010000 G CS$INLP= 000020 ERR1i2 004000 G G$XFER= 000004 L$HARD 016136 G 
BIT13 = 020000 G C$MANI= 000050 ERR13 004065 G G$YES = 000010 L$HIME 002120 G 
BIT14 = 040000 G CS$MAP = 000102 ERR14 004130 G HELP = 000000 L$HPCP 002016 G 
BIT15 = 100000 G C$MEM = 000031 ERR1S 004177 G HOE = 100000 G L$HPTP 002022 G 
BIT2 = 000004 G C$MMU = 000103 ERR2 003225 G IBE = 010000 G L$HW 002176 G 
BITS = 0C0010 G C$MSG = 000023 ERR3 003274 G IDU = 000040 G L$ICP 002104 G 
BIT4 = 000020 G CSOPNR= 000034 ERR4 003345 G IER = 020000 G L$INIT 007310 G 
BITS = 000040 G CSOPNW= 000104 ERRS 003425 G INTFLG 002240 G L$LADP 002026 G 
BIT6 = 000100 G C$PNTB= 000014 ERR6 003465 G INTVEC 016124 G L$LAST 016364 G 
BIT7 = 000200 G C$PNTF= 000017 ERR7 003541 G ISR = 000100 G L$LOAD 902100 G 
BIT8 = 000400 G C$PNTS= 000016 ERR8 003611 G IXE = 904000 G L$LUN 002074 G 
BIT9 = 001000 G C$PNTX= 000015 ERRO 003652 G ISAU = 000041 L$MREV 002050 G 
BOE = 000400 G C$PUTB= 000072 EVL = 000004 G ISAUTO= 000041 L$NAME 002000 G 
BUFDES 002604 C$PUTW= 000073 ESEND = 002100 ISCLN = 000041 L$PRIO 002042 G 
BUFOK 010374 C$QI0O = 000377 E$LOAD= 000035 IsDU = 000041 L$PROT 007302 G 
COMAND 002614 C$RDBU= 000007 FLAGS 002304 G ISHRD = 000041 L$PRT 002112 G 
COMBUF 002616 CSREFG= 000047 FTHRU = 000004 G ISINIT= 000041 L$REPP 002062 G 
COMLEN= 000024 CSREL = 000077 FSAU = 000015 I$MOD = 000041 L$REV 002010 G 
CRAMS 006212 G C$RESE= 000033 F$AUTO= 000020 ISMSG = 000041 L$SPC 002056 G 
CURCSR 002232 G C$REVI= 000004 F$BGN = 000040 I$PROT= 000040 L$SPCP 002020 G 
CURPAR 002234 G C$RFLA= 000021 F$CLEA= 000007 I$PTAB= 000041 L$SPTP 002024 G 
CURVEC 002236 G C$RPT = 000025 F$DU = 000016 IS$PWR = 000041 L$STA 002030 G 
CsAU = 000052 CSSEFG= 000046 FSEND = 000041 I$RPT = 000041 L$TEST 002114 G 
CSAUTO= 000061 C$SPRI= 000041 FS$HARD= 000004 I$SEG = 000041 L$TIML 002014 G 
C$BRK = 006022 C$SVEC= 000037 F$HW = 000013 I$SETU= 000041 L$UNIT 002012 G 
C$BSEG= 000004 C$TOME= 000076 FSINIT= 000006 ISSRV = 000041 L10000 002202 
CSBSUB= 000002 DEVADD 016156 F$JMP = 000050 I$SuUB = 000041 L10001 004312 
CSCLCK= 000062 OFPTBL 002176 G F$MOD = 000000 IsTST = 000041 L10003 007512 
CSCLEA= 000012 DIAGMC= 000000 F$MSG = 000011 J$JMP = 000167 L10004 007514 
CsCLOS= 000035 DI.ERL= 000177 G F$PROT= 000021 LENFLA= 000030 G L10005 007554 
CSCLP1= 000006 DI.ERP= 000005 G F$PWR = 000017 LOE = 040000 G L10006 010236 
CS$CPBF= 000074 DI.ERS= 000176 G FS$RPT = 000012 LOGUNT 002220 G L10007 007630 
CSCPME= 000075 DI.MIC= 000011 G F$SEG = 000003 LOT = 000010 G L10010 010010 
CSCVEC= 000036 DI.RDA= 002101 G F$SOFT= 000005 L$ACP 002110 G L10011 010506 
CSDCLN= 000044 DI.RRA= 002103 G F$SRV = 000010 L$APT 002036 G L10012 010312 
CsD0DU= 000051 DI.WOD= 002102 G F$SUB = 000002 L$AUT 002070 G L10013 010340 
CSDRPT= 000024 DI.WRA= 002104 G F$SW = 000014 L$AUTO 007514 G L10014 010372 
CsDU = 000053 DMAIBU 003036 G FS$TEST= 000001 L$CCP 002106 G L10015 010430 
CSEDIT= 000000 DMALEN= 000054 GETST1 005066 G L$CLEA 007516 G 110016 010462 
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SEQ 0089 

Symbol table 
L10017 010500 L10110 013304 NEXT 007376 TS1 010016 T12.1 011446 
Li0020 010622 L10111 013322 NOTEST 002242 G TS2 010046 T12.2 011464 
Li0021 010620 L10112 013344 OSAPTS= 000000 TS3 010137 T13 011504 G 
L10022 010702 L10113 013362 O$AU = 000000 T$ARGC= 000001 T13.1 011532 
L10023 010662 L10114 013414 O$BGNR= 000000 TSCODE= 001031 T13.2 011550 
L10024 010700 L10115 013432 O$BGNS= 000000 TSERRN= 000002 113.3 011572 
L10025 010762 L10116 013454 OsDU = 000000 TSEXCP= 000000 T13.4 011610 
Li0026 010742 L10117 013472 OSERRT= 000001 TSFLAG= 000040 713.5 011632 
L10027 010760 L10120 013524 O$GNSW= 000000 TSFREE= 016424 713.6 011650 
L10030 011042 L1i0121 013542 O$POIN= 000001 T$GMAN= 000000 713.7 011672 
L10031 011022 L10122 013564 O$SETU= 000001 TSHILI= 000776 713.8 011710 
L10032 11040 L10123 013602 PBLOC 002222 G T$LAST= 000001 T14 011730 G 
L10033 011122 L10124 013634 PICS 014712 T$LOLI= 000000 714.1 011756 
L10034 011102 L10125 013652 PIC1 014722 T$LSYM= 010000 714.2 011774 
L1i0035 011120 L10126 014430 PIC2 014764 T$LTNO= 000024 714.3 012016 
L10036 011202 L10127 013766 PIC3 015026 T$NEST= 177777 714.4 012034 
L10037 011162 L10130 014010 PIC4 015070 T$NSO = 000000 T14.5 012056 
L10049 011200 L1i0131 014026 PI.ACK= 003000 G T$NS1 = 000004 714.6 012074 
L10041 011262 L10132 014060 PI.AVA= 100000 G T$NS2 = 000002 714.7 012116 
L10042 011242 L10133 014076 PI.CAN= 001001 G T$PCNT= 000000 714.8 012134 
L10043 011260 L10134 014120 PI.CMA= 002400 G TSPTAB= 010173 TiS 612154 G 
L10044 011342 L10135 014136 PI.IDM= 000400 G T$PTHV= 000004 TISINP 013076 
L10045 011322 L10136 014170 PI.IDS= 001400 G TS$PTNU= 000004 TISM1 012560 
L10046 011340 L10137 014206 PI.IEN= 001403 G T$SAVL= 177777 TiSM2 012611 
L10047 011422 L10140 014230 PI.RUB= 177777 G T$SEGL= 177777 T1SM3 = 012645 
L1i0050 011402 L10141 014246 PI.SEN= 001000 G T$SIZE= 000020 T15M4 012743 
L1i0051 011420 L1i0142 014300 PI.TST= 002000 G T$SUBN= 000002 T15SMS 012773 
L10052 011502 L10143 014316 PNT = 001000 G T$TAGL= 177777 TiSRBU 013000 
L10053 011462 L10144 014340 POLCNT 002216 G T$TAGN= 010175 TISRLE= 000010 
L10054 011500 L1i0145 014356 POLL 004314 G T$TEMP= 000000 TiSWBU 013020 
L1i0055 011726 L10146 014410 POLLCR 004512 G TS$TEST= 000024 TISWEN 013076 
L10056 011546 L10147 014426 PRI = 002000 G T$TSTM= 177777 T15.1 012344 
Li0057 011564 L10150 015402 PRIOO = 000000 G T$TSTS= 000001 T15.2 012404 
L10060 011606 L10151 014606 PRIO1 = 000040 G T$$AUT= 010004 T15.3 012422 
L10061 011624 L10152 014632 PRIO2 = 000100 G T$$CLE= 010005 T15.4 012440 
L10062 011646 L10153 014650 PRIO3 = 000140 G T$$DAT= 010174 T16 013102 G 
L10063 011664 L10154 015540 PRIO4 = 000200 G T$$HAR= 010163 716.1 013162 
L10064 011706 L10155 015520 PRIOS = 000240 G T$$HW = 010000 716.10 013440 
L10065 011724 L1i0156 015536 PRIO6 = 000300 G T$$INI= 010003 716.11 013456 
L10066 012152 L10157 016122 PRIO7 = 000340 G T$$MSG= 010001 716.12 013474 
L10067 011772 L10160 016064 RRAMS 006132 G T$$PC = 000004 716.13 013526 
L10070 012010 L10161 016120 STABUF 002666 T$$PRO= 010002 716.14 013550 
L10071 012032 L10162 016132 STALEN= 000036 T$$PTA= 010173 716.15 013566 
L10072 012050 L10163 016156 STTEST 007150 G T$$SRV= 010162 716.16 013604 
L10073 012072 L10164 016370 - SVCGBL= 000000 T$$SUB= 010161 716.17 013636 
L10074 012110 L10165 016400 SVCINS= 177777 T$$TES= 010157 716.2 013220 
Li0075 012132 L10166 016374 SVCSUB= 177777 Tl 007556 G 716.3 013236 
L10076 012150 L10167 016410 SVCTAG= 177777 TIDONE= 000000 G 716.4 013254 
L10077 013100 L1i0170 016404 SVCTST= 177777 Tak 007570 T16.5 013306 
L10100 012402 L10171 016420 S$LSYM= 010000 T1.2 007632 T16.6 013330 
L10101 012420 L10172 016414 TEMP1 002212 G T10 011264 G 716.7 013346 
L10102 012436 L10174 016424 TEMP2 002214 G T10.1 011306 T16.8 013364 
L10103 012552 MAXTST= 000024 G TMASKS= 000010 G 710.2 011324 716.9 013416 
L10104 013654 MAXUNI= 000004 G T1 006444 T11 011344 G T17 013656 G 
L10105 013212 MICNUM 007232 TM2 006541 T11.1 011366 T17.1 013736 
L101C6 013234 MRKONC 007054 G TSTMSK 006276 G T11.2 011404 T17.10 014214 
L10107 013252 MVPAR 006626 G TSTONC 007112 G T12 011424 G T17.11 014232 
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SEQ 0090 
Symbol table 
T17.12 014250 T18 014432 G T2.3 010342 TS 010704 G T9.2 011244 
Ti7.13 014302 T18M1 015132 T2.4 010374 T5.1 010726 UAM = 000200 G 
717.14 014324 T18mM2 015202 T2.5 010432 To 010744 VECADD 016175 
717.15 014342 T18M3) =s-:« 015271 T2.6 010464 T6 010764 G VS.CRY= 010000 G 
717.16 014360 T18M4 =6.015361 T20 015674 G T6.1 011006 VS.ERR= 040000 G 
717.17 014412 718.1 014506 T20M1 015542 T6.2 011024 VS.PRY= 020000 G 
T17.2 013774 T18.2 014610 T20M2 015627 17 011044 G VS.SVL= 100000 G 
717.3 014012 T18.3 014634 T20.1 015740 T7.1 011066 WRAMS 006066 G 
T17.4 014030 T19 015404 G T20.2 016066 T7.2 011104 X$ALWA= 000000 
T17.5 014062 T19.1 015504 T3 010510 G T8 011124 G X$FALS= 000040 
717.6 014104 T19.2 015522 T3.1 010522 T8.1 011146 X$OFFS= 000400 
717.7 014122 T2 010240 G T4 010624 G T8.2 011164 X$TRUE= 000020 
T17.8 014140 T2.1 010252 T4.1 010646 19 011204 G $PATCH 016214 G 
T17.9 014172 T2.2 010314 T4.2 010664 Tok 011226 


- ABS. 016424 000 8=6C(RW,1,GBL,ABS,0VR) 
000000 001 (CRW,I,LCL,REL,CON) 
Errors detected: 0 


#s¢ Assembler statistics 


Work file reads: 303 

Work file writes: 304 

Size of work file: 35760 Words ( 140 Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elapsed time: 00:07:25.81 
ZVSWAO, ZVSWAO/ -SP=SVC40.MLB/ML ,ZVSWAO. MAC 








